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