Put it on the symbol table

[cog]

A bit of symbol table handling:

package _;sub _{$k?',':$"};sub __{for(sort grep!/_/&&$$_,keys%_::){pri
+nt"$_$$_"}
print"@{[_]}"}$J="u";$/=$s="t";&__;sub ____{for(2,3){&{'_'x$_}}}&___;$
+an="o$/";$
he="r";&____;$P="e";$r="l";&____;$ha="c";$k="er";&__;sub ___{$$_=$,for
+ keys%_::}

If you want it to be educative, try to understand why I'm using a different package rather than main.