Select Code to Download

package TestArray;
use Tie::Array;
...
say "CLEAR() test.";
@ARGV = ();

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
pop() test.
...
Called DESTROY. at mytest.pl line 20
    TestArray::DESTROY('TestArray=ARRAY(0x250e91c)') called at mytest.
+pl line 0
    eval {...} called at mytest.pl line 0