foreach my $last_name ( keys %people ) {
    print "Last name is $last_name.\n\tDetails are:\n";
    print map { "$_: " . $people->{$last_name}{$_} . "\n\t" }
       keys %{$people->{$last_name}};
    print "\n";
}