sub my_exists (\%$) {
    my($h,$k)=@_;
    $_ eq $k and return $_ for keys %$h;
    undef;
}