sub foo { "foo" }
$fooref = \*foo;
print *$fooref{CODE}->();