use strict;
use warnings;

our $bar = 1; # note the package variable

my $barref = \*bar;
*$barref = sub { "bar" };

print &{ *$barref }(), $/;
print ${ *$barref },   $/;

print *$barref{CODE}->(),  $/;
print ${*$barref{SCALAR}}, $/;