sub ausgabe {
   my $self = shift;
   my $knoten = $self;
   
    if (defined($knoten->{'linksweg'})) 
    {
    ausgabe($self, $knoten->{'linksweg'});
    }
    print "$knoten->{'zahl'}";
    # print "$self->{'wurzel'}->{'zahl'}\n";

    if(defined($knoten->{'rechtsweg'})) 
    {
    ausgabe($knoten->{'rechtsweg'});
    }
}