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