Scalar::Util 

• Core perl module (since 5.8)

use Scalar::Util qw(
    blessed dualvar isdual readonly refaddr reftype
    tainted weaken unweaken isweak isvstring
    looks_like_number set_prototype
);

my $thing1 = {};
my $thing2 = {};