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