# Jetzt wieder ausgeben!
my $key;
# Fuer alle Keywords
   for $key (@{$params{keywords}})
   {
# erst die freien Kommentare, falls vorhanden
      if (exists $params{$key}{precomments})
      {
         print "# ", $_, "\n" for @{$params{$key}{precomments}};
      }
   }
# dann die einzelnen Schluessel und Werte
   print "$key = ";
   my @vals = ();
   foreach my $val (@{$params{$key}{values}})
   {
      my $str = $val;
      if (exists $params{$key}{comments}{$val})
      {
         $str .= "\t# " . join " \\\n\t\t\t# ",
         @{$params{$key}{comments}{$val}};
      }
      push @vals, $str;
   }
#   print join " \\\n\t\t", @vals;
#   print "\n";