foreach (@csv_out){
                if($_ eq ""){
                #$_ = 'NULL';
                $_ = 'NULL';
                print WRITEFILE "$_" . "," ;
                }
                elsif ($_ =~ m/[a-zA-Z]/ || ($j<10 && $j>=0)){
                print "$_\n";
                $_=~ s/,/ /g;
                print WRITEFILE '"'."$_".'"' . "," ;
                $j=$j-1;
                }
                else {
                $_=~ s/,/ /g;
                print WRITEFILE "$_" . "," ;
                }