open (OUT,  ">Curr_Closed.csv");
    open (RAW, "<Prelim_CC.csv") or die "ERROR: Could not open Curr_Closed.csv";
     while (<RAW>){
        chomp ($_);
        my @columns = split (/,/, $_, 10);
        $columns[9] =~ s/,/;/;
        print OUT $columns[9]."\n"}
    close (RAW);
    close (OUT);