sub set_l {
   my $ref_liste1 = shift;
   my $knoten = shift; 
   my $val= shift;

    for my $zzahl (@$ref_liste1){
        if ($knoten)
   
   if ($konten->{'zahl'}) {
       $knoten = $knoten {'linksweg'};
   } else {
       knoten->{'zahl'} = $knoten->new($val);
   }
}

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

sub knot { return ( {     'zahl' => shift,
            'linksweg' => undef,
            'rechtsweg' => undef } );
}