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);
   }
}