sub inherit_from_A {
  my $package_name = shift;
  no strict 'refs';
  @{"${package_name}::ISA"} = qw(A);
}

# create class B1..
inherit_from_A('B1');