open(FILE, "somefile") or die $!;
my @log = <FILE>; # read entire file into RAM
close(FILE);

foreach my $line (@log) {
    # do stuff to $line
}