#!/usr/bin/perl
&just;sub just{&another};sub another{&perl};sub perl{&hacker};
sub hacker{foreach $ja(sort keys %main::){local *ph=$main::{$
ja};if(defined &ph){push @japh,$ja}}};@japh=(@japh)[2,0,3,1];
print "@japh\n";