>perl -MO=Concise,-exec -e"my @a = ( $c, $c += 1 );"
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s

4  <#> gvsv[*c] s               # $c

5  <#> gvsv[*c] s               # $c + 1
6  <$> const[IV 1] s            #
7  <2> add[t4] sKS/2            #

8  <0> pushmark s
9  <0> padav[@a:1,2] lRM*/LVINTRO
a  <2> aassign[t5] vKS/COMMON
b  <@> leave[1 ref] vKP/REFC
-e syntax OK