Okay.
So what is your question?
How to count the number of occurences of strings?
Hashes can do this. e.g.: ++$count{$string};