>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
####
my $c = 4;
sub c :lvalue { print("$_[0]\n"); $c }
my @a = ( c("a"), c("b") += 1 );
print("@a\n");
##
##
a
b
5 5