Как распарсить JSON в Perl?
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
Эта штука называется "ассоциативный массив", в Perl - hash.
Обращаться к значениям  можно через {}, например VAR1{" items"}; вернёт вам массив items.