sub neu {
   my $class = shift;
   my $ref_wurzel = newtree(\@liste);
   my $self = { val => $ref_wurzel, l => \@liste};
   bless $self, ref($class) || $class;
   return $self;
}