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