You coulld use Tie::File

use Tie::File;

use strict;
use warnings;

my @log_file_contents;
tie @log_file_contents, 'Tie::File', "filename"
  or die "Can't open filename";
print "$log_file_contents[6]\n";
[download]

This does not read the whole file into memory.