while(my $line = $INFILE)