#   $x  |  anon returned  |  $_[0]  |  $_[1]
                        #       |     by $x++     |         |
                        # ------+-----------------+---------+---------
my $x = 0;              #    0  |             --  |     --  |     --
{                       #    0  |             --  |     --  |     --
   local @_;            #    0  |             --  |  undef  |  undef
   alias $_[0] = $x;    #    0  |             --  |      0  |  undef
   my $anon = $x++;     #    1  |              0  |      1  |  undef
   alias $_[1] = $anon; #    1  |              0  |      1  |      0
   &print;
}