foreach my $a(@arr) 
{
   $a =~ s/^\s*//;   #trim leading spaces
   $a =~ s/\s*$//;   #trim trailing spaces
   my $count = grep {$_ =~ /($a)/g} @text;
   print "\'$a\' found $count times\n";
}