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