or download this
@a = (1..1000);
print "original array:\n";
...
$#a = -1;
print "after set to -1:\n";
print join(",", @a), "\n";#You can not say for sure that your array ha
+s already been garbage collected at this point, but at least it is no
+w a candidator.