$func_link = sub {.......}; &$func_link(1,2,3); test_func sub{.....}; %arr= ("test" => \&test_func); $arr{"test"}=>(1,2,3); $func_str = "print 'test'"; eval("$func_str");