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