while (my $line = <$INFILE>){