Not quite. If the first answer is wrong, this code does NOT give the correct answer, as OP requested, but gets stuck in a loop.

C:\perl germ.pl
Reisebus: das
Wrong
Reisebus: den
Wrong
Reisebus: the
Wrong
Reisebus: der
Rigth
Reisebus: Wrong
Reisebus: Terminating on signal SIGINT(2)
[download]

No downvote for that; just a note; but please see the tenor of xorl 's reply and the very explicit admonitions from others, (including /me, below)... and consider the "fish" story -- " Teach a man to fish...."