BEGIN{print "BEGIN:",grep { $_ eq chaos}keys %::;print"\n"}
INIT{print "INIT:",grep { $_ eq chaos}keys %::;print"\n"}
END{print "END:",grep { $_ eq chaos}keys %::;print"\n"}

print exists $::{"chaos"} && *{"::chaos"}{SCALAR},"\n";

$chaos = 1;

##</code><code>##

BEGIN:
INIT:chaos
SCALAR(0xe566e8)
END:chaos