This is why we love

####################################

#!/usr/bin/perl

@a = qw(c i k e);
@b = qw(o d u r a s);
@c = qw(n h);
@d = qw(a b f g j l m p q t v w x y z);

$dict = "/usr/dict/words";

foreach $a(@a){
 foreach $b(@b){
  foreach $c(@c){
   foreach $d(@d){
    $word  = "$a$b$c$d";
    push(@words,$word);
   }
  }
 }
}

print "done combinations!\n";

open(FILEONE,$dict) or die "can't open dict: $!";
while($w = ){
 chomp($w);
 foreach $word(@words){
  if ($w eq $word){
   print "match: $word\n";
  }
 }
}
close(FILEONE);

print "done matching!\n";

####################################