foreach $f (@isect) { print "diffing file $f \n"; system("diff -r $some_dir/$f $other_dir/$f" ); }