You can use the reftype function from Scalar::Util, which is a core module in recent perls. It's a little more robust, works for blessed and unblessed refs, and doesn't rely on non-overloaded stringification like the solution above.