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