One way is to use Tie::File.

test.pl:

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

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