package A;

# ... code here

use tt ( subclasses => [ map { 'B' . $_ } 1 .. 100 ] );

[% FOREACH subclass IN subclasses %]
    package [% subclass %];
    our @ISA = qw(A);
[% END %] 

no tt;