$A::i_am_prob=27;

package B; # now in package B

print $A::i_am_prob; # prints 27

package C; # now in package C

print $A::i_am_prob; # prints 27