exemple:

fonction

sub array_add
{
  my ($ref1, $ref2) = @_;

  while (@{$ref1}) {
   unshift @result, pop(@{$ref1}) + pop(@{$ref2});
}

return @result;
}

exemple

@a = (1, 2, 3);
@b = (4, 5, 6);
@c = add_array(\@a, \@b);
print @c;

print @array;