while (my ($key,$value) = each(%no)) {
      $contains++ while $value =~ /$search/gi;
  }