perl 数组空间回收问题

@array = qw /test this that a/;
$a = \@array;
$b = $a;
$c = \@array;
there are three times reference to @array.

Perl recycles the memory for the array only when all references (including the name of the array) go away. In this case, Perl only reclaims memory when @array and all the references we created to it disappear.

my $ref;

{
  my @skipper = qw(blue_shirt hat jacket preserver sunscreen);
  $ref        = \@skipper;

  print "$ref->[2]\n"; # prints jacket\n
}

print "$ref->[2]\n"; # still prints jacket\n

after the block, the reference to the array still exists,

At this point, the five-element list is in an anonymous array, which is a fancy term for an array without a name.

The data stays alive until we destroy the last reference:

$ref = undef; #