# write row
   if ($flag){    
     for my $col ( $col_min .. $col_max ) { 
       $worksheet1->write($row_out, $col, $value[$col],$fmt);
     }
     $row_out++;
     $flag = 0 if $flag == 2;
   }