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