chomp($line1=<DATA>);
my @row = split("\t",$line1) ;
print $row[0];
__DATA__
hello	world