http://www.perlmonks.org?node_id=191672

Greetings, fellow Monks!

This is my second Obfuscated Perl attempt. My first Obfuscated Perl Attempt was not too terribly obfuscated. My hopes are that this is a bit more challenging to work through.

sub _{'h'};%_=('p');@_=qw(a);$_='j';$;=\*_; print ${*${;}},@{*${;}},%{*${;}},&{*${;}};
-Daruma