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

"Leesville","TX","78122","830","48177","Gonzales","P",
[download]

You probably don't want the trailing comma but it is easy to add back in with the solution below if required. The easiest way to print an array with a specific separator is to change the default list separator variable ($") from it's normal value of a space to the required character or string. This demonstrates the behaviour.

$ perl -e'
-> @l = (1, 2, 3);
-> print @l, qq{\n};
-> print qq{@l\n};
-> $" = q{,};
-> print qq{@l\n};'
123
1 2 3
1,2,3
$
[download]

Note that printing the array outside quotes just concatenates the elements together whereas inside quotes separates them with the default space and once we change the default to a comma, voila.

In your particular case you also want to quote each field, which you can do in a map. We can create a new list to print, like this

use strict;
use warnings;

my @flds = qw{Leesville TX 23432 67867 88 Bloggs F};
my @quotedFlds = map { qq{"$_"} } @flds;

{
    local $" = q{,};
    print qq{@quotedFlds\n};
}
[download]

Note that I localise the change to $" in a small code block to avoid unexpected side-effects later in the script; localising changes like this is always good policy. Here's the output

"Leesville","TX","23432","67867","88","Bloggs","F"
[download]

I hope this is of use.

Cheers,

JohnGG

while (<IN>){
   next if /^#/;
   # extract $zip, leave line unmodified in $_
   my ( $city, $zip ) = ( split /,/ )[ 0, 2 ];
   tr/"//d for $city, $zip;

   if ( I want this zip code){
      .
      .
      .
   }
   else{ 
      push (@zips,$_);
      close(ZIPS);
   }
}
[download]