if( ref( $obj ) eq $type ) { ... 
## or
if( $obj =~ m[=$type$] ) { ...