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