while (<IN>){
   next if (/^#/);
   chomp;
   tr/\"//d;
   y($city,$state,$zip,$area_code,$fips,$county,$pref,$type) = split (/\,/);
   
   if ( I want this zip code){
      .
      .
      .
   }
   else{ 
      push (@zips,$_);
      close(ZIPS);
   }
}

####  The question is for the print below
####  How can I print " around each value 

foreach (@zips){
   print ;
}