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