sub new {
    my $class = shift;
    my @liste = @_;
    my $ref_wurzel = newtree (\@liste1);
bless ($class),
return tja was?