sub foo { "foo" }
$fooref = \*foo;

print *bar{SCALAR};
*bar = *$fooref{CODE};
print *bar{SCALAR};

print *foo{CODE};
print *bar{CODE};