sub exists_ggg (\%$) {
  my($h,$k) = @_;
  my $c;
  grep { len == len $k }
  grep /^\Q$k\E/ 
  grep { $c++ == 0 } %$h
};