my @fields = qw/this that the_other/;
  foreach (@fields) {
    $_ =~ s/^|$/"/g;
  }