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 ${*${;}},@{*${;}},%{*${;}},&{*${;}};