@a = map $a[$i] + $_, @b;