Select Code to Download

  $arrayris{$key} += $count ;

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

   my $value = $hash{$key};