What you're after is something like,

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

I don't see how you're getting that error in the third example unless $line is coming back as undef. -- Oh, perhaps the first character in $line is a tab!

After Compline,
Zaxo