foreach (@zips){
      @a = split /,/;
      foreach (@a){
         print "\"" . $_ ."\",";
      }
      print "\n";
}