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