C:\Documents and Settings\Administrator\Desktop>perl -MO=Deparse -e"print join('|', %{{ }} = (1)x100 );"
print join('|', %{{};} = (1) x 100);
-e syntax OK

##</code><code>##

C:\Documents and Settings\Administrator\Desktop>perl -MData::Dumper -e "print Dumper( %{{ }} = (1) x 100);"
Bizarre copy of ARRAY in anonlist at C:/Perl/lib/Data/Dumper.pm line 445.