eval"&@{[join',&',split//,'Just_another_Perl_hacker.']}";sub AUTOLOAD
{($_,$k)=(sort keys%::)[$i++,$i]until/ARGV/;s/.*:://,y/_/ /,print for
$$k;sub s}