perl子程序返回多个数组到主程序中多个数组

sub choose(){
my (@c1, @c2, @c3);
@c1 = @_;
@c2 = sort @_;
@c3 = reverse @_;

return (\@c1,\@c2,\@c3);
}
my @arr = (1,2,3,5,4);
my (@a,@b,@c);
my @refs = &choose(@arr);
@a = @{$refs[0]};
@b = @{$refs[1]};
@c = @{$refs[2]};

print "@a\n@b\n@c\n";

说明：首先perl中只能对简单的列表赋值给变量列表，而不能，列表赋值给列表组成的列表，比如@arr = (1,2,3);这个是可以的，($a,$b) = ($b, $a);这个也对， 但是(@arr1, @arr2) = (@arr2, @arr1); 这个就错了，原因在于perl的列表是贪婪的， 也就是说 @arr1会尽可能的接受后面的数据，而(@arr2,@arr1)本身就是一个大的列表， 就全部被@arr1接受了，而@arr2为空，唯一的办法就是用变量形式来接受具体数据。所以($ref_a1, $ref_a2) = (\@a1, \@a2);这种形式是可以的。
可能你要学习一下 perl中的引用了，类似于c语言中的指针和c++中的引用；接着上面的例子， 要用数组@a1， 只要写成 @{ $ref_a1 } 就相当于@a1了，要取第一个元素，$a1[0] , ${ $ref_a1 } [0] ,只需要把前面的@改成$就可以了。

对于你要返回列表型的值，需要使用引用，否则，会全部存入第一个接收数组中，应该这么写
($a1, $a2,$a3) = choose(@files);
使用的时候，可以还原引用，如 @{$a1}，或者直接读下标，$a1->[n]

返回数组引用, 然后使用数组引用.
return (\@c1,\@c2,\@c3);
（$a1_ref, $a1_ref, $a3_ref）= choose(@files)