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";
    }
}
[download]