foreach $p (@{$package . "::ISA"}) {