#!/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;