{
    "items" : [
        {   "name" : "Theodor Nelson",
            "id": "_333301"
        },
        {   "name": "Morton Heilig",
            "id": "_13204"
         }
        ]
}
##</code><code>##

 

 use JSON -support_by_pp;
 my $json = JSON->new->pretty;
 my $json_object = $json->decode($json_text);
 
for my $item( @{$json_object->{items}} ){
    print $item->{name} . "\n";
}

##</code><code>##

[
  {
    name: "a",
    value: "1"
  },
  {
    name: "b",
    value: "2"
  },
  {
    name: "c",
    value: "3"
  },
  {
    name: "d",
    value: "4"
  },
  {
    name: "e",
    value: "5"
  }
]