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
    }
		}
	}