for (keys %fields) {
    unless (defined($fields{$_})) {
      $fields{$_} = "";
    }
  }