my @new = map($array1[$_] . $array2[-1-$_], 0..$#array1);

##</code><code>##

my @new;
push (@new, $array1[$_].$array2[-1-$_]) for 0..$#array1;