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