sub insert_keys
{
   my ($bufferp, $paramp, $komment) = @_;

# entfernt RETURN
   chomp ($komment);

# Was macht das?   "$$" -> ?????
   return unless defined $$bufferp && length $$bufferp;

   die "Syntaxfehler in Zeile $." unless index ($$bufferp, '=') >= 0;
   my ($key, $val) = split /\s*=\s*/, $$bufferp, 2;

#   print "$$bufferp  - $komment \n";


# Ab hier muss ich was änder (glaube ich) aber was???

   unless (defined $val)
   {
       $paramp->{$key} = undef;
       return;
   }
   if ($val =~ /\s/)   # Leerzeichen zwischen Woertern? => Liste
   {
       my @vals = split " ", $val;
       $paramp->{$key} = \@vals;
   }
   else
   {
       $paramp->{$key} = $val;
   }
   $$bufferp = "";
}