my $answer = encode(utf8, <STDIN>);
    $answer = decode(utf8, $answer);
    system 'cls';
    chomp($answer);
    if ($answer eq $list[0]->{answer}) {
	print "Richtig: ",
	    "Die Antwort ist *$list[0]->{answer}*\n\n";
	shift(@list);

	next;
    }