sub ausgabe {
    my $self = shift;
    my $refvalue = shift;

    if (defined( $self->{'ref_wurzel'}->{'linksweg'} ) ) {
    ausgabe( $self->{'ref_wurzel'}->{'linksweg'} )
    }

    print $self->{'ref_wurzel'}->{'zahl'},"\n";

    if( defined( $self->{'ref_wurzel'}->{'rechtsweg'} ) ) {
    ausgabe( $self->{'ref_wurzel'}->{'rechtsweg'} )
    }
}
ausgabe($ref_wurzel);