use Scalar::Util 'reftype';
$a=\$b;
print reftype($a),"\n"; #SCALAR
print ref($a),"\n";     #SCALAR
bless $a, "BOGUS";
print reftype($a),"\n"; #SCALAR
print ref($a),"\n";     #BOGUS