1 | sub doublearray { |
2 | my(*arraypointer) = @_; |
3 |
foreach $elem (@arraypointer) {
|
4 | } |
5 | } # End routine to double elements of an array |
6 | # Suppose @foo and @bar are arrays: |
7 | doublearray(*foo); # doubles elements of @foo |
8 | doublearray(*bar); # doubles elements of @bar |