Select Code to Download

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

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

$ perl -MO=Concise,-exec -e'1 for (),$x..$y'
1  <0> enter
...
c  <2> leaveloop vK/2
d  <@> leave[1 ref] vKP/REFC
-e syntax OK