%main::->grep B{ /_test$/ and isARRAY };

print map { $_->sig() . "\n" . $_->doc() } 
       grep2 {isCODE} 
         %main::