Select Code to Download

#!/usr/bin/perl
use warnings;
...
i have any array with me say @arr which contains number of words(may c
+ontain
spaces) and i also have a text (in array) which contains a text of say
+ 1000
lines. i need to do

There are 2 occurences of 'text'
There are 3 occurences of 'i'