Select Code to Download

test.pl:

...
print Dumper($self);
print $array[2];
print Dumper($self);

$VAR1 = bless( {
                 'autochomp' => 1,
...
                                     2
                                   ], 'Tie::File::Cache' )
               }, 'Tie::File' );