sub foo { "foo" }
$fooref = \*foo;
&$fooref();