$ perl -e '%foo = {}; print %foo, "\n";'
HASH(0x814dc30)

##</code><code>##

$ perl -e '%foo = {}; print join(",", %foo), "\n";'
HASH(0x814dc30),