use Text::CSV_XS;

  my $csv = Text::CSV_XS->new ({ binary => 1, sep_char => "\t", auto_diag => 1 });
  my @row = ("") x 50;
  $csv->bind_columns (\(@row));
  while ($csv->getline ($fh)) {
      my @capture = @row[0, 2, 5];
      }