perl -e "%h = (1,1,1,1); print %h"

##</code><code>##

11

##</code><code>##

1111