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";