perl -MO=Concise -le 'my $h;print( %{ $h } )'
9  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
3     <0> padsv[$h:1,3] vM/LVINTRO ->4
4     <;> nextstate(main 3 -e:1) v ->5
8     <@> print vK ->9
5        <0> pushmark s ->6
7        <1> rv2hv[t2] lK/1 ->8
-           <@> scope sK ->7
-              <0> ex-nextstate v ->6
6              <0> padsv[$h:1,3] s ->7