opendir (DIR, "$responseDir") or die "could not open $responseDir :$!\n"; my @newFile = grep { $commonField -f $responseDir/$_ } readdir(DIR); closedir(DIR);