sub ausgabe { my $refvalue = shift; my $self = shift; if(defined($$refvalue{'linksweg'})) { ausgabe($$refvalue{'linksweg'}) } print "$$refvalue{'zahl'}\n"; if(defined($$refvalue{'rechtsweg'})) { ausgabe($$refvalue{'rechtsweg'}) } } ausgabe($ref_wurzel);