>perl -MO=Concise script.pl
j  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 4 script.pl:8) v ->3
i     <2> sassign vKS/2 ->j
g        <@> list sKP ->h
3           <0> pushmark v ->4
7           <1> entersub[t3] vKS/TARG,1 ->8
                             ^
                             |
                         void context

-              <1> ex-list K ->7
4                 <0> pushmark s ->5
5                 <$> const[PV "a1"] sM ->6
-                 <1> ex-rv2cv sK/1 ->-
6                    <#> gv[*wa] s ->7
b           <1> entersub[t5] vKS/TARG,1 ->c
                             ^
                             |
                         void context

-              <1> ex-list K ->b
8                 <0> pushmark s ->9
9                 <$> const[PV "a2"] sM ->a
-                 <1> ex-rv2cv sK/1 ->-
a                    <#> gv[*wa] s ->b
f           <1> entersub[t7] sKS/TARG,1 ->g
                             ^
                             |
                       scalar context

-              <1> ex-list sK ->f
c                 <0> pushmark s ->d
d                 <$> const[PV "a3"] sM ->e
-                 <1> ex-rv2cv sK/1 ->-
e                    <#> gv[*wa] s ->f
h        <0> padsv[$x:4,5] sRM*/LVINTRO ->i
script.pl syntax OK