@d=sort{rand>.5}(b..z,A..Z);push@d,shift@d while($d[-1]ne"j");unshift@d,$_="a"
;while($#d>1){$_=shift@d;${$_}="\$$d[1]"}$j="print 'Just another Perl hacker,\n'
";s#.#${$&}#eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee