Select Code to Download

  while (my $text=<$testo>){
    for my $key (keys %hash){
...
      print $conteggio "$arrkey) => $count\n";
    } ;
  } ;

  my $count = () = $text =~ /\b$key\b/ig ;

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