my $seen = 0;
while (my ($key, $value) = each %whop) {
  $seen = 1, last if $value eq $newm;
}
if ($seen) { ... }