Ich wehre mich schon, is schon okay...
$self->{'wurzel'} = newtree (\@liste);
da gehört aber eher hin
$self->{'ref_wurzel'} = newtree (\@liste);
oder nicht und wenn nicht warum nicht.
Und was macht das self entspricht es dem Horese in der
perlboot oder?