my $i = 0;
@a = map { $a[$i++] + $_ } @b;