Select Code to Download

{
   "in-running-flag" : false,
   "markets" : [],
...
   "id" : 241995,
   "start" : "2013-09-10T17:00:00.000Z"
}

my @meata = ...;
my %cat;
...
    my( $type, $id, $name ) = @{$meat}{qw/ type id name/};
    $cat{ $type }{ $id } = $name;
}