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

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

In this version the subroutine :: has already been declared when the parser finds the bareword :: in the definition of _. The bareword :: is therefore interpreted as a subroutine call instead of a string. This means that ::->() is equivalent to '::'->()->(). The first subroutine call prints "hacker\n" and returns 1, so the second subroutine call is equivalent to 1->(), which starts over again at "another ".