my $row = 0;
while (<TABFILE>) {
  chomp;

  my @fld = split /\t/;
  my $col = 0;

  foreach my $token (@fld[0,4]) {
    $worksheet->write($row, $col, $token);
    $col++;
  }

  $row++;
}
[download]