WORD: while (my $word = pop @words) {
   # lower-case it
   $word = lc $word;

   # search for the entry.  When found, update the
   # count, if not found create new entry.
   $counth{$word}++;
}