my %erasethese = map { $_ => 1 } qw(structuralObjectClass entryUUID
                                    creatorsName modifiersName createTimestamp
                                    modifyTimestamp entryCSN);

##</code><code>##

    print FILE $LINE unless exists $erasethese{$array[0]};