@a = (1, 2, 3);
@b = (4, 5, 6);
sub addem
{
my ($ref1, $ref2) = @_;
if (ref($ref1) eq "ARRAY" && ref($ref2) eq "ARRAY") {
while (@$ref1) {
unshift @result, pop(@$ref1) + pop(@$ref2);
}
return @result;
} elsif (ref($ref1) eq "SCALAR" && ref($ref2) eq "SCALAR") {
return $$ref1 + $$ref2;
}
}
@array = addem (\@a, \@b);
print join (', ', @array);