no strict 'refs';
defined &{ "$package\::$subname" }

##</code><code>##

my %runmodes = (
    init => \&init,
    login => \&login,
    ...
);