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