in reply to old obfu tricks revealed

sub _ { print "perl "; ::->() }
sub :: { print "hacker\n"}
sub ::1 { _ print  "another "}
sub ::0 { print "just " }
1->(%1->());

[download]
Since %1 is empty it evaluates to 0 in scalar context, so the last line is really 1->(0->());. 
sub :: { print "hacker\n"}
sub _ { print "perl "; ::->() }
sub ::1 { _ print  "another "}
sub ::0 { print "just " }
1->(%1->());

[download]
<Reveal this spoiler or all spoilers in this node or all in this thread>

In Section Obfuscated Code