>perl -le"$i=3; print($i+0, ++$i, $i+0);"
344

##</code><code>##

>perl -le"$i=3; print($i, ++$i, $i);"
444

##</code><code>##

# $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
};

##</code><code>##

# $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
};

##</code><code>##

perl -le"$i=3; sub { $_[1]++; print @_ }->($i+0, ++$i, $i+0, $i);"