sub update_test{ print 'hi' };;

$n = 'test';;

*{'update_' . $n }->();;
hi