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

##</code><code>##

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

##</code><code>##

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


##</code><code>##

load x
inc
push
load x
push
call printf

##</code><code>##

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

##</code><code>##

                        #   $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;
}

##</code><code>##

perl -le"$x=3; sub { $_[1]++; $_[2]++; print @_ }->($x+0, ++$x, $x++, $x+0, $x);"

##</code><code>##

my $x = 3;                #  $anon0 | $x    | $anon2 | $anon3 | $x
{                         #  $_[0]  | $_[1] | $_[2]  | $_[3]  | $_[4]
   local @_;              # --------+-------+--------+--------+-------

   # $x+0
   my $anon0 = $x+0;
   alias $_[0] = $anon0;  #       3 |    -- |     -- |     -- |    --

   # ++$x
   $x=$x+1;               #       3 |    -- |     -- |     -- |    --
   alias $_[1] = $x;      #       3 |     4 |     -- |     -- |    --

   # $x++
   my $anon2 = $x;
   alias $_[2] = $anon2;  #       3 |     4 |      4 |     -- |    --
   $x=$x+1;               #       3 |     5 |      4 |     -- |    --

   # $x+0
   my $anon3 = $x+0;
   alias $_[3] = $anon3;  #       3 |     5 |      4 |      5 |    --

   # $x
   alias $_[4] = $x;      #       3 |     5 |      4 |      5 |     5

   &anon_sub;
   #  $_[1]++;            #       3 |     6 |      4 |      5 |     6
   #  $_[2]++;            #       3 |     6 |      5 |      5 |     6
   #  print @_;
}