Select Code to Download

use strict;

my @arrays = (
...
my ( $biggest ) = sort { $#$b <=> $#$a } @arrays;

print "biggest is @$biggest\n";