test.pl:

use Tie::File;
use Data::Dumper;

my $self = tie @array, "Tie::File", "test.pl";
print Dumper($self);
print $array[2];
print Dumper($self);