On Oct 12, 2009, at 10:27 PM, Benjamin Florin wrote:

> foreach my $word (keys %words)
> {
> 	$words_stems{$stemmer->stem($word)} += $words{$word};
> }
>
> foreach my $idea (@ideas)
> {
> 	my $idea_stem = $stemmer->stem( $idea );
> 	print "$idea ($idea_stem)\n";
> 	print $words_stems{$idea_stem}."\n";
> }


A number of other people in other venues have suggested similar things  
-- pre-process the hash of stems. I will go with this. Resolved. Thank  
you.

  internet++

-- 
Eric Morgan