f (@ARGV) {
        open FILE, shift or die "No such dictionary...";
        rand($.) < 1 && ($answer = (split(/[\r\n]+/,$_))[0]) while <FILE>;
        close FILE;