La función  reftype  de Scalar::Util
funciona de manera parecida a ref EXPR, con la diferencia
de que sobre los objetos no retorna la clase del objeto:
$type = reftype "string";           # undef
$type = reftype \$var;              # SCALAR
$type = reftype [];                 # ARRAY
$obj  = bless {}, "Foo";
$type = reftype $obj;               # HASH
Casiano Rodríguez León
