# perl -wlE 'print ref({ foo => "bar" });' HASH