sub find_stuff {
    my ($self, $k) = shift;
    while (defined($k = each %$self)) {
       last if $self->{$k}->{'blablah'}
    }
    1 while each %$self;
    $k
}