Help for this page

Select Code to Download


  1. or download this
    perl -le"sub f{ \my $x } print f() for 1..10;"
  2. or download this
    sub DESTROY {say "DESTROYED"}
sub f{ bless \my $x } say f() for 1..10;
...
DESTROYED
main=SCALAR(0x9704c30)
DESTROYED
  3. or download this
    my @a;
sub f{ push @a, \my $x; $a[-1] } say f() for 1..10;
...
SCALAR(0x9c50534)
SCALAR(0x9c5050c)
SCALAR(0x9c504e4)