while (defined (my $line = <$inFile>)) {