@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);