my %keywords;
...
uc($word); # or lc()
$keywords{$word}++;
if ($keywords{$word} > 1) {
    # deal with a duplicate
}
...