open(CDR, $CDR);
     open(SORTED_CDR, ">$SORTED_CDR");
     @ARRAY=<CDR>;
     my @unique = do {my %h; grep {!$h {$_} ++} @ARRAY};
     print SORTED_CDR @unique;