Select Code to Download

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

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