use Tie::File;

tie my @array, 'Tie::File', filename or die "Cannot open 'filename' because: $!";