package A;
BEGIN { ... $a ... } // A's 0th BEGIN
use B $a;
END   { ... }        // A's 0th END