while(<INFILE1>) {
  chomp;
  s/,,/,/;
  s/,/","/g;
  print OUTFILE1 "\"$coid\",\"$_\"\n";
}