while (<INFILE>) {
    chomp;
    @newrow = split /\t/;