my $n = $#array1;
my @array3 = map { $array1[$_] . $array2[$n-$_] } 0..$n;