sub doThis{ print "doThis doing this with $_[0]"; };; { no strict 'refs'; my $sub = 'doThis'; $sub->('fred'); };; doThis doing this with fred