{
   local @_;
   alias $_[0] = $x;
   alias $_[1] = $x;
   alias $_[2] = $x++;
   &print;              # @_ = ($x, $x, $anon) = (1, 1, 0)
}