You've already received some good answers to your question. FWIW, I usually like to use an array when splitting. Makes the code a little easier to read:

foreach my $line (@file) {
   my @fields = split(/\t/, $line);
   # do stuff with @fields...
}
[download]

-- vek --