if (compare("$some_dir/$f","$other_dir/$f") != 0) {
                print "\n pushing $f to modarray\n";
                push @modarry, $f;