my @word_list;

sub rand_word {
        my $file = shift;
        if ( not defined $word_list[0] ){
                open  FIN, "<$file" or die("$file");
                @word_list = map { chomp; $_ } <FIN>;
                close FIN;
        }

        my $r = int(rand(@word_list));
        return $word_list[$r];
}