foreach my $key (%allCustomers) {
my %customer = $allCustomers{$key};
...