my $petref = [ { "name" => "Jack",
"type" => "dog"
},
{ "name" => "Tom",
"type" => "cat"
}
];
push @{$petref},{ "owner"=>"Mary", "name"=>"Tweety"};
while(($key,$value)=each %{$petref->[2]}){
print "$key -- $value\n";
}