perl傳遞數組的問題

在perl裏面，傳遞多個數組是不可行的，因爲所有參數都會被壓到@_裏面，取出來的時候，所以數組元素都會被放到第一個數組裏面。

所以，用引用吧~~~

 1 use ... 
 2 sub array 
 3 { 
 4      my ($arr1,$arr2) = @_ ; 
 5      print "@$arr1 : @$arr2"; 
 6 } 
 7 sub main 
 8 {
 9     my @array1 = qw/test test test/ ; 
10     my @array2 = qw/test1 test1 test1/ ; 
11     array(\@array1,\@array2); 
12 }
13 main();