use Tie::File;

my @array;
my $filename = "/var/log/apache2/error_log";
 
tie @array, 'Tie::File', $filename or die "Cant bind to $filename";

# weiter das Array einfach auslesen 
# oder gearbeiten