#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

open(CDR, $CDR);
open(SORTED_CDR, ">$SORTED_CDR");
open DUPS, 'dup_records.txt' ;
#@ARRAY=<CDR>;
#my @unique = do {my %h; grep {!$h {$_} ++} @ARRAY};
my %seen = () ;
while ( <CDR> )
{
    if ( $seen{$_}++ )
    {
        print DUPS $_ ;
    }
    else
    {
        print SORTED_CDR $_ ;
    }
}
#print SORTED_CDR @unique;

exit ;

__END__