foreach $file (@cdr_list)
{
        chomp $file;
        open (FP,"$file") or die "Could not open $file\n";
        $first=1;
        while ($line=<FP>){
                chomp $line;