if ($program[0] =~ /^wer$/)
        {
        while(1)                # Endlosschleife-Ende mit last, Wdh. mit redo
                {
                print "Eingaben bitte immer mit ENTER abschliessen.\n\n";
                print "Bitte geben Sie einen Namen ein dann ENTER:\n";
                $name = <STDIN>;
                if ($name =~ /^\s$/)     # kein Name eingegeben
                        {
                        print "\t\tFEHLER! Bitte unbedingt einen Namen eingeben\n";
                        redo;
                        }
                print "Kennen Sie auch einen Vornamen? sonst ENTER:\n";
                $vorname = <STDIN>;
                print "Kennen Sie auch ein Seminarkürzel? sonst ENTER:\n";
                $kurs = <STDIN>;

                chomp $name;
                @eingabe = $name;                                                                               # 1.Eintrag in Array

                if (! ($vorname =~ /^\s$/) )                                    # keine Leerzeile
                        {
                        chomp $vorname;
                        push(@eingabe, $vorname);       # 2.Eintrag in Array
                        }
                else
                        {
                        $vorname = '?';                                                                                         # wenn Leerzeile
                        }
                if (! ($kurs =~ /^\s$/))
                        {
                        chomp $kurs;
                        push(@eingabe, $kurs);                          # 3.Eintrag in Array
                        }
                else
                        {
                        $kurs = '?';                                                                                                            # wenn Leerzeile
                        }

                print "Name: $name \tVorname: $vorname \tKurs: $kurs - OK? ENTER sonst \'n\' für neu!\n";               # Kontrollabfrage
                $neu = <STDIN>;
    if (!($neu =~ /^\s$/) )   # neue Eingabe
    {
        redo;
    }
    else
    {
        last;                    # Abfrage ausführen
    }
                }
        }