perl -e 'sub test{my @a=qw(a b c); return @a} my $v = test(); print $v,"\n"'
perl -e 'sub test{return qw(a b c);} my $v = test(); print $v,"\n"'
perl -e 'sub test{my @a=qw(a b c); return @a} my ($a, $v) = test(); print $v,"\n"'
perl -e 'sub test{my @a=qw(a b c); return (@a)} my $v = test(); print $v,"\n"'
perl -e 'sub test{my @a=qw(a b c); return (@a, "b")} my $v = test(); print $v,"\n"'