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