sub newtree {
    my $ref_liste1 = shift;
    # Wurzel des Baums erzeugen
    my $ref_wurzel = knot(shift @$ref_liste1);
    my $knoten     = $ref_wurzel;
 
    for my $zzahl (@$ref_liste1){
        while (1){
            if($zzahl < $knoten->{'zahl'}){
                if(defined($knoten->{'linksweg'})){
                    $knoten = $knoten->{'linksweg'};
                }
                else {
                    $knoten->{'linksweg'} = knot($zzahl);
                    $knoten = $knoten->{linksweg};
                    last; #Ende
                }            
            }
            #wenns Links nicht mehr weiter geht, geh rechts weiter
            else {
                if ($zzahl >= $knoten->{'zahl'}) {
                    if(defined($knoten->{'rechtsweg'})){
                        $knoten =$knoten->{'rechtsweg'};
                    }
                    else {
                        $knoten->{'rechtsweg'} = knot($zzahl);
                        $knoten = $knoten->{rechtsweg};
                        last;
                    }
                }
            }
        }
    }
    return $ref_wurzel;
}