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