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