You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
@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); |