The first of the two examples in the grandparent of this post is the "incorrect" code. To cut it down to a minimum
for my $tab ( 1 .. 3 ) {
my @array = ( 0 .. $tab);
printf "Array ref: %s\n", \@array;
}
__END__
Array ref: ARRAY(0x826acf4)
Array ref: ARRAY(0x826acf4)
Array ref: ARRAY(0x826acf4)
As you can see the same address is being reused. The latest
perl review has an
article about closures (PDF) that mentions it in passing.
I don't see how the code is incorrect. In the first example the value of @array is discarded but I could quite legitimately do something like
for my $value ( @values ) {
my @array = frobinate($value);
foreach my $bit (@array) {
drill($bit);
}
}
and the memory location of
@array is reused.