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

$bar = 1;
$barref = \*bar;

print *bar{SCALAR};
*$barref = *foo{CODE};
print *bar{SCALAR};

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