print Dumper( decode_json($json_data) );
my $ref = decode_json($json_data);
my $arr = $ref->{"items"};
for my $item ( @$arr ){
print $item->{"Child"}->{"name"}, " ", $item->{"Child"}->{"pet"};
print "\n";
}
Результат:
Jack Cat
David Dog
Merry Hamster