$A::bbb = 3;
delete $A::{bbb};
print $A::bbb;