使用内置的ref就行：

my $obj = bless [] => 'TargetClass';
print ref($obj), "\n";