#!/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$
     #Create your four letter words
     for(my $i=0; $<1000; $i++){
     my $key = @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";

      }