Mega Code Archive
Categories
/
Perl
/
Language Basics
Manipuate @_ and return @_
sub addone { foreach (@_) { $_++; } return @_; } @a = (1, 2, 3); @b = addone(@a); print "@b";