$|=1;
@data = <DATA>;
while($resp ne "q"){
        $num=int rand(@data);
        ($a,$b)=split/ /,$data[$num];
        print "$b: ";
        chomp($resp = <>);
        print $a eq lc $resp?"Rigth\n":"Wrong\n"
}

__DATA__
das Zimmer
die Brille
der Reisebus