while ( my $line = <INFILE>) {
    chomp $line;
...