I'm not a GreatOne, but here's how I might have done it assuming that I know the arrays are exactly the same size:

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