sub quote {
   # Use $_ if no arguments are provided.
   my $s = @_ ? $_[0] : $_;
   $s =~ s/([\\"])/\\$1/g;
   return qq{"$s"};
}

# Procedural style
print quote foreach @zip;
print "\n";

# Functional style
print map quote, @zips;
print "\n";