while (my $file_1_line = <INFILE>) {
   ... do stuff
}