$A::bbb = 3;
$A::{bbb} = 4;
print "$_ => $A::{$_}\n" for keys %A::;
print $A::bbb,"\n";
__END__
bbb => *main::4