Select Code to Download

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

# perl -le'%h=(foo=>1,bar=>'dog');print"%h"'
%h
# perl -le'%h=(foo=>1,bar=>'dog');print"@{[%h]}"'
bar dog foo 1
#