use strict;

my @arrays = (
 [ 1, 2, 3 ],
 [ 4, 5 ],
 [ 6, 7, 8, 9 ],
 [ ]
);

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

print "biggest is @$biggest\n";