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