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;