my @result = map { $_ + $array2[ $i++ ] + 1 >> 1 } @array1;