$ perl -MO=Concise -e'$a=1+$a'
8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
7     <2> sassign vKS/2 ->8
5        <2> add[t1] sK/2 ->6
3           <$> const(IV 1) s ->4
-           <1> ex-rv2sv sK/1 ->5
4              <$> gvsv(*a) s ->5
-        <1> ex-rv2sv sKRM*/1 ->7
6           <$> gvsv(*a) s ->7