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