$a[$_] -= $b[$_] for 0..$#a;