open(FILE, "<billionlinelogfile.log");
my @file = <FILE>;
close(FILE);
foreach my $line (@file) {
  do stuff...
}

##</code><code>##

open(FILE, "<billionlinelogfile.log");
while(<FILE>) {
  do stuff...
}
close(FILE);