Perl 의 shift 함수

array 의 제일 첫 element 를 리턴하고, 그것을 array 에서 제거한다.
쉽게 말하면 Stack의 pop() 과는 반대로 head 를 뽑아내는 함수인 셈이다.

 my @a = (1..5);  
 while (my $elmt = shift(@a)) {  
   print("$elmt ");  
 }  
 print("\n");  

출처 : PERL shift Function