foreach my $key (keys %allCustomers) {
print $key . "-" . $allCustomers{$key}{'customerId'} . "\n";}