use 5.010;  # say
use Data::Alias;

sub f { say @_; }

$n=3;
f(++$n, 0+$n, ++$n);

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

##</code><code>##

545
545