&{"Modname::$subname"}

##</code><code>##

my %table = (name1 => \&subname1, name2 => \&subname2 ... );

##</code><code>##

$table{$name}->( ... args ... )