sub a { sub x { print "I came from a\n"; } } sub b { sub x { print "I came from b\n"; } } x(); a(); x(); b(); x();