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