my @row = split("\t", chomp(my $line = <IN>));