f(++$i, ++$i)

##</code><code>##

do {
   local @_;
   alias $_[0] = ++$i;
   alias $_[1] = ++$i;
   &f;
}

##</code><code>##

do {
   local @_;
   ++$i; alias $_[0] = $i;
   ++$i; alias $_[1] = $i;
   &f;
}