Just FYI, when you bless a reference, the blessing is actually stored in the referenced variable. So, due to this current implementation detail, your code can actually be tripped up by such a weird scenario:

my $glob = *X;
my $ref = bless \$glob;
print ref(\$glob);
__END__
main
[download]