my %derived = listOfDerivedClasses( 'Element' );

while( <SQL> ) {
    my( $type ) = m[...];
    die "Derived type $type not available" unless exists $derived{ $type };
    push @instances, $type->new();
}