$bar = 1;
$barref = \*bar;
*$barref = sub { "bar" };
&$barref();