$mysubs{name} = sub { 
   #subroutine implementation
};
 
...
 
$mysubs{name}->("call","args","whatever");

##</code><code>##

*MySubs::name = sub { 
   #subroutine implementation
};
 
...
 
# and later
MySubs::name("call","args","whatever");
 
# ... or ...
package MySubs; 
name("call","args","whatever");