Perl 如何返回两个值？

(@a,@b)=&test();
print "@a,@b";

sub test
{
    my @a=qw(a b c);
    my @b=qw(x y z);
    return (@a,@b);
}

my ($a, $b) = test();
print "@$a, @$b";

sub test
{
    my @a = qw(a b c);
    my @b = qw(x y z);
    return (\@a, \@b);
}