if ( $eingabe =~ /^\D*$/)
            {
            print "Ungültige Eingabe, bitte geben sie nur Zahlen ein \n";
              chomp($eingabe);
           push @liste1,$eingabe;
           }