@a = (1, 2, 3);@b = (4, 5, 6);@array = addem (\@a, \@b);print @array;sub addem{ my ($ref1, $ref2) = @_; while (@{$ref1}) { unshift @result, pop(@{$ref1}) + pop(@{$ref2}); } return @result;}