Select Code to Download

%entry = {$item_id=>\@data, $item_id=>\@data.....etc}

my $len = scalar @{ $entry{$key}[$i]  }