foreach (@_)
sub addone { foreach (@_) { $_++; } return @_; } @a = (1, 2, 3); @b = addone(@a); print "@b";