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