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