$var = 'routine';

eval(&$var('arg1', 'arg2'));
#eval(&{$var}('arg1', 'arg2')); 

sub routine { print "$_\n" for @_; }