sub newtree {
######################
# Erstellen des Trees

   my $ref_liste1 = shift;
   my $zahl = undef; 
   my $ref_wurzel = undef;

    for my $zzahl (@$ref_liste1){
        my $refvalue = $ref_wurzel;

        if ($zahl) 
            { while (1) { 
############################
#Beginn des Vergleichs

               
 if($zzahl < $$refvalue{'zahl'}) {
               
 if(defined($$refvalue{'linksweg'})) 
               
     {
               
         $refvalue = $$refvalue{'linksweg'};
               
     }
               
 else {
               
     $$refvalue{'linksweg'} = knot($zzahl);
               
     $zahl = $ref_wurzel;
               
     last; #Ende
                        }            
               
 }    

               
 #wenns Links nicht mehr weiter geht, geh rechts weiter
    
               
 else {    if ($zzahl > $$$refvalue {'zahl'}) {

                              if(defined($$refvalue{'rechtsweg'}))
                            
  {
               
         $refvalue = $$refvalue{'rechtsweg'};
                         }
               
 else     { 
               
         $$refvalue{'rechtsweg'} = knot($zzahl);
               
 last; 
               
     }    
                      }        
              }
      }
    
}
}
return($ref_wurzel);
}