Select Code to Download

sub find_stuff {
    my $self = shift;
    $self->{$_}->{'blablah'}
        and return $_ for keys %$self;
    return;
}

sub find_stuff {
    my ($self, $k) = shift;
    while (defined($k = each %$self)) {
...
    1 while each %$self;
    $k
}