my %stems;
for my $word (keys %words) {
    my $stem = $stemmer->stem($word);
    $stems{$stem} += $words{$word};
}
for my $idea (@ideas) {
    my $stem = $stemmer->$stem($idea);
    my $val = $stems{$stem} || 0;
    print "$idea\t$val\n";
}