I have been attempting to open a tab delimitted file and split it and then only take certain fields to populate an Excel Spreadsheet to no avail. I get the spreadsheet populated, but I get every thing in the file. I only want a few items. For example, I would only want fields: Job ID and Status from the file which is shown below. How would one change the below split() to accomplish this. Thanks for the help..

Job ID"    "Job PID"  "Type"  "State"    "Status"
1     1        B       Complete      0
[download]

  my $row = 0;
    while (<TABFILE>) {
        chomp;
        my @Fld = split ('\t', $_);
        my $col = 0;
        foreach my $token (@Fld) {
            $worksheet->write($row, $col, $token);
        $col++;
    }
    $row++;
};
[download]