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