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