Miscellany

#!/usr/bin/perl
#

my %wordlist;

# First, generate at most 1000 different four letter combinations
for(my $i=0; $i < 1000; $i++){
        my $key = chr(97 + rand(26)) . chr(97 + rand(26)) . chr(97 + rand(26)) . chr(97 + rand(26));
        $wordlist{$key} = $i;
}

# Now outpu 10,000 lines, each holding one of our unique "words"

my @words = keys %wordlist;

for(my $i=0; $i < 10000; $i++) {
        print $words[rand($#words)]."\n";
}