use strict;
use warnings;

open (FILE, 'german.txt') or die "Failed to open german.txt - $!";
my @words = <FILE>;
my $num = int rand(@words);
my ($article, $noun) = split(/ /, $words[$num]);
chomp($noun);
chomp($article);
print "Who is the article of $noun:";
my $resp = <>;
chomp $resp;
if ($resp eq $article) {
    print "Correct!";
} else {
    print "The correct answer is $article!"
}