perl -le 'sub x { my @x = qw(a b c); my @y = qw(A B C D); return (@x, @y)} my $r = x(); print $r' 4