>perl -MO=Concise -e"use constant FALSE => 1==0; @a = (FALSE, 1==0)" a <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 70 -e:1) v ->3 9 <2> aassign[t3] vKS ->a - <1> ex-list lKP ->6 3 <0> pushmark s ->4 4 <$> const[PVNV 0] s ->5 5 <$> const[PVNV 0] s ->6 - <1> ex-list lK ->9 6 <0> pushmark s ->7 8 <1> rv2av[t2] lKRM*/1 ->9 7 <#> gv[*a] s ->8 -e syntax OK