while ($element = shift(@numOfWordArr)) {
              $termsFreq{$element} ++;
              if(!exists($docTerms{$element}))
              {
                $docTerms{$element}++;
              }
}