http://qs1969.pair.com?node_id=561433


in reply to hashes of hashes

You might find the documentation on perldsc helpful to understand the HoH.

foreach my $key( keys %people ) { print "\nKey is $key:\n"; foreach my $element ( keys %{$people{$key}} ) { print "\t$element", "= $people{$key}{$element}\n"; } }