Mega Code Archive

 

Categories / Perl / Language Basics

 

Foreach (@_)

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