Help for this page

Select Code to Download


  1. or download this
    my @arr = (9) x 1000_000;
my $code = sub { @arr };
undef $code;
print(scalar(@arr), $/);  # 1000000
  2. or download this
    my $code;
{
...
undef $code;
# @arr freed
print(scalar(@arr), $/);  # error under strict.