12 lines
193 B
Perl
12 lines
193 B
Perl
|
@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";
|
||
|
|
}
|