Mega Code Archive

 

Categories / Perl / Subroutine

 

Ading two arrays together

@a = (1, 2, 3); @b = (4, 5, 6); sub addem {     local(*array1, *array2) = @_;     while (@array1) {         unshift @result, pop(@array1) + pop(@array2);     }     return @result } @result = addem(*a, *b); print join(", ", @result);