$ perl -le 'print for %h = (1,1,1,1);'
1

1
1