sub newtree {
    my $ref_liste1 = shift;
    # Wurzel des Baums erzeugen
    my $ref_wurzel = knot(shift @$ref_liste1);
 
    for my $zzahl (@$ref_liste1){
        my $knoten = $ref_wurzel;
        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;
}

sub Ausgabe { $ebaum ->ausgabe(@HinzufuegenListe);}

sub Ausgabe { $ebaum ->ausgabe();}

#!/usr/bin/perl

use Baum1;
use strict;

my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);
my @HinzufuegenListe = ();
my @NeuListe = ();
my $ebaum = undef;



############################
#Eingabe der ersten 10 Zahlen / Liste 1
############################
    
sub BaumNeu { 
   for(0..9){
        print "Bitte geben Sie eine Zahlen ein: ";
          my $eingabe = <STDIN>;
            if ( $eingabe =~ /^\D*$/)
        {
        print "Ungültige Eingabe, bitte geben sie nur Zahlen ein \n";
               chomp($eingabe);
        }
         else {
            push @liste1,$eingabe;
              }
       }    
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";

 $ebaum =Baum1->neu(@liste1);

}
sub Hinzufuegen {
        my $zzahl = @_; 
        $ebaum ->append(my @NeueListe);
        }

sub Ausgabe { $ebaum ->ausgabe();}

BaumNeu;
Hinzufuegen;
Ausgabe;

#!/usr/bin/perl

package Baum1;
use strict;
use warnings;
....#Hauptprogramm {sub neu, sub hinzufügen, sub ausgabe}
sub neu {
   my $class = shift;
   my @liste = @_; 
   my $ref_wurzel = newtree(\@liste);
   my $self = { val => $ref_wurzel, l => \@liste};
   bless $self, ref($class) || $class;
   return $self;
}

sub ausgabe {
 my $self = shift;
 my $knoten = $self;

   if (defined($knoten->{'linksweg'}))
   {
   ausgabe($knoten->{'linksweg'});
   }
   print " $knoten->{'zahl'} ";
   

   if(defined($knoten->{'rechtsweg'}))
   {
   ausgabe($knoten->{'rechtsweg'});
   }
}
###############
#Hinzufügen weiterer Äste

sub append {
 my $self = shift;
 my @vals = @_;
 if (defined($self->{val}))
 { 
   my $liste = $self->{l};
  
   for my $zzahl (@vals){
     push(@$liste, $zzahl); }
   $self->{val} = newtree ($liste);  
 }

}
1;

sub append {
   my $self = shift;
   my @vals = @_;
   while ( my $n = shift @vals ) {
       if ($n < $self->{val}) { $self->($n) }
       elsif ($n > $self->{val}) { $self->($n) }           
   }
}

my $self = { 'val' => $ref_wurzel, l => \@liste};