my $i = @a; $a[$i] -= $b[$i] while $i--;