use base qw(A B);

instead of:

BEGIN {
    require Foo;
    require Bar;
    push @ISA, qw(Foo Bar);
}

8.23. B::Xref		8.25. Benchmark