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 @_;
}