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