Mega Code Archive

 

Categories / Perl / Subroutine

 

Passing by reference with pointers

@list1= (1..100); @list2 = (5..200); display(@list1, @list2); # Pass two arrays print "-" x 35,"\n"; display(\@list1, \@list2); # Pass two pointers sub display{   print "@_\n"; }