foreach my $line (<$INFILE>) {
     ## do stuff
}