##
>perl -le"$i=3; print($i, ++$i, $i);"
444
##
##
# $i=3; print($i+0, ++$i, $i+0);
$i = 3;
do {
local @_;
$anon0 = $i+0; alias $_[0] = $anon0;
$i = $i+1; alias $_[1] = $i;
$anon1 = $i+0; alias $_[2] = $anon1;
&print
};
##
##
# $i=3; print($i, ++$i, $i);
$i = 3;
do {
local @_;
$i; alias $_[0] = $i;
$i = $i+1; alias $_[1] = $i;
$i; alias $_[2] = $i;
&print
};
##
##
perl -le"$i=3; sub { $_[1]++; print @_ }->($i+0, ++$i, $i+0, $i);"