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

##</code><code>##

"Leesville","TX","78122","830","48177","Gonzales","P",