my @array2 = map "$array[$_]$array1[$_]", 0..$#array;