Help for this page
perl -e"print join( '|', %{{ }} = (1)x100 );"
P:\test>perl -le"print join'.', %h = (1)x$_ for 1..20;" 1 ... 1.1.1..1.1.1..1.1.1..1.1.1..1.1 1..1..1..1..1..1..1..1..1..1 1..1.1.1..1.1.1..1.1.1..1.1.1..1.1