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

print *bar{SCALAR};
*$barref = sub { "bar" };
print *bar{SCALAR};