while ($text =~ /\b$key\b/ig) { $arrayris{$key}++ ; } ;