perl传递数组的问题

在perl里面，传递多个数组是不可行的，因为所有参数都会被压到@_里面，取出来的时候，所以数组元素都会被放到第一个数组里面。

所以，用引用吧~~~

use ... 
sub array 
{ 
     my ($arr1,$arr2) = @_ ; 
     print "@$arr1 : @$arr2"; 
} 
sub main 
{
    my @array1 = qw/test test test/ ; 
    my @array2 = qw/test1 test1 test1/ ; 
    array(\@array1,\@array2); 
}
main();