Select Code to Download

>perl -MO=Concise,-exec -e"my @a = ( $c, $c++ );"
1  <0> enter
...
9  <2> aassign[t5] vKS/COMMON         # list assignment
a  <@> leave[1 ref] vKP/REFC
-e syntax OK