here's the result:

@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
[download]

Update: I should perhaps have searched. seems Book was way ahead of me. oh well. (it's new to me :) ).
++Book (5 years later!) and ++cog for pointing it out.