use Some::Module;
my %subs = map { $_ => \&$_ } grep { defined &$_ } keys %main:: ;