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

##</code><code>##

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