$A::bar = 1;
$B::bar = 2;

print $A::bar, $B::bar;