sub append {
my $self = shift;
my @vals = @_;
my $knoten = $wurzel; 
  while (my $nextvalue =shift) {
    my $wurzel = $self->{val};
     my $knoten = $wurzel; 
   while (1)  {
          if (defined($knoten)) {
       if ($nextvalue < $knoten->{'zahl'}) {
              if (defined($knoten->{linksweg})) {
           $knoten = $knoten->{linksweg};
        }         else {
               $knoten = knot($nextvalue);
        last;
  }
 
    }
}
}
} }

1;