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