Your code is a mess. Please provide a Short, Self-Contained, Correct Example.

Counting the frequency of words in Perl is a FAQ, best solved with a hash. See for example:

• How do I count the frequency of words in a file and save them for later?
• Count the frequency of words (perl maven)
• Count the frequency of words (Stack Overflow)