Someone

#!/usr/bin/perl

#first create an array of all the letters
@letters=(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z);
#Create your four letter words
for(my $i=0; $<1000; $i++)
      my $key = @letters[ rand{26) ] . @letters[ rand(26) ] . @letters[ rand{26) ] . @letters[ rand(26) ];
$wordlist($key) = $i;

#now output 10000 lines of random words

my @words = keys %wordlist;

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