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

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