my @subs = grep { defined &{ $_ } } keys %Your::Package::;

##</code><code>##

package Foo; 

sub foo { } 
sub bar { } 
sub baz { }

package Bar; 
my @subs = grep { defined &{ "Foo::$_" } } keys %Foo::; 
print join "\n", @subs;