if (_reftype($foo) eq $TYPE) { ... }