Select Code to Download

# @words is the list of words (composed of letters and numbers only, n
+o punctuation)
my($self) = @_;
...
    $r{lc $r} = 1;
}
@words = sort keys %r;

# @seen is (I think) a pseudo-hash of common words
@common = qw(a and at); # bigger in real life
...
    push(@only,$item) unless exists $seen{$item};
}
@words = @only;