# make the wordbase into an array
open(FH, "wordbase.txt");
my @words = <FH>;
close FH;

# select the word randomly in the wordbase
my $random_index = int(rand($#words));
my $random_word = $words[$random_index];

print "$random_word\n";