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