my $obj_var_a = 42; my $o = bless \$obj_var_a, 'OverloadedClass'; my $ref = \$obj_var_a; print "overloaded" if $ref->isa('OverloadedClass');