my @arr1 = qw( one two );
my @arr2 = qw( foo bar baz qux );
my @arr3 = qw( just another hacker );

print join( ', ', biggest_array(\@arr1, \@arr2, \@arr3) );


sub biggest_array {
    map { @$_ } ( sort { @$b <=> @$a } @_ )[0]
}
[download]