Perl 에서 array 를 function 의 argument 로 넘기는 방법

1:  my @a = (90, 100, 200, 300, 400);  
2:  printAll(\@a);  
3:    
4:  my $i = 1;  
5:  print("Print one by one : ");  
6:  printAndInc(\@a, \$i);  
7:  printAndInc(\@a, \$i);  
8:  printAndInc(\@a, \$i);  
9:  print("\n");  
10:    
11:  sub printAndInc  
12:  {  
13:       my ($pa, $i) = @_;  
14:       print("$pa->[$$i] ");  
15:       $$i++;  
16:  }  
17:    
18:  sub printAll  
19:  {  
20:       my ($pa) = @_;  
21:       my $result = join(" ", @$pa);  
22:       print("Print all : $result\n");  
23:  }  

13행에서 my (@a, $i) = @_;  와 같이 array 로 받으면 제대로 작동하지 않는다.
키워드 : 함수, parameter