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)
[download]

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);
    }
}
[download]

and the memory location of @array is reused.