# $cmd = "method1" eval { no strict 'refs'; *{'BigDB\::$cmd'} = makeCommandSub($CMDS->{$cmd}); } or die "Can't modify the symbol table: $!"; #### *BigDB::method1 = makeCommandSub(...);