Select Code to Download

while(my $k = each %$self || each %$self){
    return $k if(exists $self->{$k}->{blahblah});
}