Select Code to Download

>perl -MO=Concise,-exec -e"my @a = ( $c, $c += 1 );"
1  <0> enter
...
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