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