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