my $i = 0;
@res = map { $_ - $arr2[$i++] } @arr1;