$ perl -MO=Concise,-exec -e'my @a = 1..1000'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  <$> const[AV ] s
              ^
              |

5  <1> rv2av lKP/1
6  <0> pushmark s
7  <0> padav[@a:1,2] lRM*/LVINTRO
8  <2> aassign[t4] vKS/COMMON
9  <@> leave[1 ref] vKP/REFC
-e syntax OK