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

--
hiseldl
What time is it? It's Camel Time!