my $a2count = $#array2;
my @newarray;
for (my $a1count = 0; $a1count<@array1; @a1count++ ) {
    push @newarray, @array1[$a1count] . @array2[$a2count--];
}