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

##</code><code>##

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