P:\test>perl -Mstrict -wle"print join( '|', @{+{}}{1 .. 366} = ('') x 366)"
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||