http://www.perlmonks.org?node_id=199238

This is my first obfuscation that I even consider halfway decent, and it happens to be a JAPH:
print@={ sort%==q=qr!J& $s[l?P^h%t:r] @e(afk)nOrbadc/oge; } #u0t4h8ex,==~m"\C|0xaf3d!until$a+=$b; # secret key: "g}#Z~"
Update: Made a tiny change so now it even runs with  use strict.

-- Mike

--
just,my${.02}