# perl -le'%h=(foo=>1,bar=>'dog');print"%h"'
%h
# perl -le'%h=(foo=>1,bar=>'dog');print"@{[%h]}"'
bar dog foo 1
#