Select Code to Download

use List::Util qw(max);
my $max = max (map $#$_, @LoL);

use List::Util qw(max);
my $max = max (map $#$_, @LoL);
my @where = grep $#{$LoL[$_]} == $max, 0..$#LoL;