while (<IN> ne "") {

      my $line = $_;

      chomp($line);