my $foo = sub {'i am $foo '};
*foo = sub{'i am *foo '};
print $foo->(), $foo,$/;
print foo(), \&foo,$/;

__END__
i am $foo CODE(0x1ab2860)
i am *foo CODE(0x1ab28e4)