Select Code to Download

    #!/usr/bin/perl -wT
    use strict;
    my @lol = ([1,2,3],
...

    =OUTPUT
    $aoa[2] has the most elements

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

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