if($dlog2[$co] eq '*')
             { 
               print $fh "  ,"; 
             }