12345678910111213141516
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);