Select Code to Download

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this
```
load x
inc
...
load x
push
call printf
```

Select or download this

                        #   $x  |  anon returned  |  $_[0]  |  $_[1]
                        #       |     by $x++     |         |
...
   alias $_[1] = $x++;  #    1  |              0  |      1  |      0
   &print;
}

Select or download this

                        #   $x  |  anon returned  |  $_[0]  |  $_[1]
                        #       |     by $x++     |         |
...
   alias $_[1] = $anon; #    1  |              0  |      1  |      0
   &print;
}

Select or download this

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

Select or download this

my $x = 3;                #  $anon0 | $x    | $anon2 | $anon3 | $x
{                         #  $_[0]  | $_[1] | $_[2]  | $_[3]  | $_[4]
...
   #  $_[2]++;            #       3 |     6 |      5 |      5 |     6
   #  print @_;
}