use strict;
use warnings;

my %HoH = (
   fred => { age => 54, kids => [ qw{ janet john mary } ] },
   pete => { age => 37, kids => [ qw{ anne tim } ] },
   );

foreach my $person ( keys %HoH )
{
    print
       qq{Person: $person\n},
       qq{   Age: $HoH{$person}->{age}\n},
       qq{  Kids: @{ $HoH{$person}->{kids} }\n},
       ;
}

##</code><code>##

Person: pete
   Age: 37
  Kids: anne tim
Person: fred
   Age: 54
  Kids: janet john mary