sub ausgabe { my $self = shift; my $knoten = undef; if (defined($knoten->{'linksweg'})) { ausgabe($self, $knoten->{'linksweg'}); } print "$knoten->{'zahl'}";