sub append
{
   # pick parameters
   my($self, @vals) = @_;

   foreach my$val (@vals)
   {
      # get root
      my $knoten = $self->{val};

      while (1)
      {
         if (defined($knoten)) {
            if ($val < $knoten->{'zahl'}) {
               if (defined($knoten->{linksweg})) {
                  $knoten = $knoten->{linksweg};
               }
            else {
               $knoten = knot($val);
               last;
            }
         }
         else {
            #### $knoten ist hier nicht definiert ####
            #### du greifst aber ständig drauf zu ####
            if ($val >= $knoten->{'zahl'}) {
               if (defined($knoten->{'rechtsweg'})) {
                  $knoten =$knoten->{'rechtsweg'};
               }
               else {
                  $knoten->{'rechtsweg'} = knot($val);
                  $knoten = $knoten->{rechtsweg};
                  last;
               }
            }
         }
      }
   }
}