Good idea, but why to be so noisy? Each %main:: can be easily replaced with just %::

Look what becomes after little modifications:

&just;sub just{&another};sub another{&perl};sub perl{&hacker};
sub hacker{@japh=grep{defined &{$::{$_}}}sort keys %::}
print "@japh[2,0,3,1]\n";
[download]