@RECList = .....
    clientname,record
    sam,plaplapla
    jame,bobobo
    kate,sososo
    .....

print "FLASH A-LIST\n";
foreach my $CDR (@RECList){
    my ($filename,$row)= split(/,/, $CDR);
    open(my $csv_fh, ">> /ClientRrecord/$filename.csv") or die "couldn
+\'t open [$filename.csv]\n".$!;
    print { $csv_fh } $row."\n";
}