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