Select Code to Download

my @Fld = ( split /\t/ )[0,4];
my $col = 0;
foreach my $token (@Fld) {

my @fld_no = qw( 0 4 );
my $row    = 0;
 # ...
  foreach my $idx (@fld_no) {
    $worksheet->write($row, $col, $fld[$idx]);