sub foo { CORE::say "ok" }
my %h;
my $ref1 = \%h;
my $ref2 = \%h;
bless($ref1);
$ref2->foo();

##</code><code>##

$ perl -MScalar::Util=reftype -e'
   CORE::say ref(\*FOO);
   CORE::say reftype(\*FOO);
   bless(\*FOO);
   CORE::say ref(\*FOO); 
   CORE::say reftype(\*FOO);
'
GLOB
GLOB
main
GLOB