Select Code to Download

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

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