%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}}";
}