@Cfiles = ("find_equiv_posns", "setdiff", "intersect", "subset", "sample_discrete");

foreach $file (@Cfiles) {
    system("cp $file\_C.m $file.m");
    print "cp $file\_C.m $file.m\n";
}
