$arrayris{$key} += $count ;

##</code><code>##

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

##</code><code>##

   my $value = $hash{$key};