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

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