mapm { my ($i1, $i2, $i3) = @_; ...; } \(@_a_1, @_a_2, @_a_3);