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);
            push @liste1,$eingabe;
                }
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";

    my @erstellebaum =baum->Neu(@NeuListe);

}}