foreach (keys %one_word_keywords)
{
   my $key = $_;
   my $value = $one_word_keywords{$_};

   if ($value > 6)
   {
      # this has to be printed in the normal table as well
      # but if this error happens AND the chars does
      # the word KEYWORDS would be colored red twice.
      print qq("$key" was repeated $value times.  Max is 6<br><br>);
   }
}