my $totalHits;
do {
   $totalHits ++;
   $words{$1} ++;
   } while $text =~ m{$rxWords}g;