use mapcar;

sub a_add  { $v1 = [ mapcar { $_[0] + $_[1] } @_[0,1] ] }
sub a_subt { $v1 = [ mapcar { $_[0] - $_[1] } @_[0,1] ] }
sub a_mult { $v1 = [ mapcar { $_[0] * $_[1] } @_[0,1] ] }
sub a_div  { $v1 = [ mapcar { $_[1] ? $_[0] / $_[1] : undef } @_[0,1] ] }