perl -e"print join( '|', %{{ }} = (1)x100 );"

##</code><code>##

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..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
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..1..1..1..1..1
1..1.1.1..1.1.1..1.1.1..1.1.1..1.1