%people=( 
'Jones'=>{'name'=>'Alison', 'age'=>15, 'pet'=>'dog',},
'Smith'=>{'name'=>'Tom', 'age'=>34, 'pet'=>'cat',});
foreach $key(keys %people)
{
print "Key is $key", "value is %{$people{$key}}";
}

##</code><code>##

Key is smith value is #{HASH(0x2251d0)} Key is Jones value is %{HASH(0x2250c8)}