sub mysub { print "mysub $_[0]\n"; }; 
my $s="mysub"; 
&{$s}( "toto");                         # This is what you want