while (my($text_id,$text) = each(%hash2) ) {
      if ($text =~ $match)