foreach my $key (keys %allCustomers) {