@ARGV = <$responseDir/*>;
   undef $newFile; # Force reset
   while (<>)
    {
         $newFile = $ARGV, print(STDERR "Found $commonField\n"), last if /^"$commonField"$/;
    }
   print "my newFile to change is $newFile\n";