my ($index,$len) = (0,0);

    $index = $len < $#{$lol[$_]} ? do { $len = $#{$lol[$_]}; $_ } : $index for 0 .. $#lol;