my $hits;
$hits += () = /$search/gi for values %o;
my $contains = $hits;