Same, but with another one variant inside the map, using shift-right op (Shift Operators):

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