sub ausgabe {
    my $self = shift;
    my $refvalue = 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);