I should have tested, but I wasn't really sure what you were trying to achieve? Anyway, this may be it.
P:\test>perl -Mstrict -wle"print join( '|', @{+{}}{1 .. 366} = ('') x
+366)"
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+||||||
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
| [reply]
[d/l] |