my @foo = qw/0 1 2 3 4 5 6 7 8 9/;
my @bar = qw/0 1 2 3 4 5/;
my $last = @foo < @bar ? @foo : @bar;
print "$last\n";