$ perl -MO=Concise -e 'my $v = 1234; $v *= 9876' a <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 1 -e:1) v:{ ->3 5 <2> sassign vKS/2 ->6 3 <$> const[IV 1234] s ->4 4 <0> padsv[$v:1,2] sRM*/LVINTRO ->5 6 <;> nextstate(main 2 -e:1) v:{ ->7 9 <2> multiply[t2] vKS/2 ->a 7 <0> padsv[$v:1,2] sRM ->8 8 <$> const[IV 9876] s ->9 -e syntax OK