Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. 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";
}