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";
####################################