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