$ perl a.pl
Destroying $x
Entering global destruction
Destroying $z    # Can occur in any order
Destroying $y    #