my $line1 = ; chomp($line1); my @row = split("\t", $line1); ##

##

my @row = split("\t", chomp());

##

##

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