use Devel::Symdump;
my @names = map { $_ =~ /routinecategory_(.*)/s ? $1 : () }
    Devel::Symdump->new( 'MyPackage' )->functions;