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