# replace from @ARGV = <$responseDir/*>;

foreach $file (<$responseDir/*>) {
    open FH, "$responseDir/$file" or die "$!\n";
     my ($edit, @temp);
    while (<FH>) {
        push @temp, $_;
        $edit++ if /^"$commonField"$/;
    }
    close FH;
    next unless $edit;
    open NEW, ">$responseDone/$file" or die "$!\n";
    foreach (@temp) {
        s/$replaceField/$origField/g;
        print NEW;
    }
    close NEW;
    print "Done s/$replaceField/$origField/g $file\n";
    unlink "$responseDir/$file";
    print "removed original\n";
    system ("mv $sourceDir/$arrFileList $processed");
    print "moved $sourceDir/$arrFileList to $processed\n";
}