my $i = @a;
goto CHECK;
BODY:  $a[$i] -= $b[$i];
CHECK: goto BODY if $i--;