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