perl -e '@a{qw(der die das)}=(1..3);open(I,shift);chop(@l=<I>);{@s=spl
+it/\s+/,$l[rand(@l)];print "$s[1](1=der,2=die,3=das)? ";chop($w=<STDI
+N>);print $w==$a{$s[0]}?"yes\n":"no: @s\n"; redo}' german.txt
[download]

update: While dirty hack, 'tis presented to the OP as an incentive to grok how it works, and to learn.

--shmem

500^th post

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}