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