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

sorry I did not post the actual compare that I used