use Tie::File;

my $self = tie @array, "Tie::File", "test.pl";