foreach $arrFileList(@arrFileList)
 {
   print "I am doing this file $arrFileList\n";
   open (FILE, "$sourceDir/$arrFileList") or die "could not open $sourceDir/$arrFileList: $!\n";
   @Lines = <FILE>;
   close FILE;
   $origField = (split /\|/, $Lines[3])[-3];
   $commonField = (split /\|/, $Lines[13])[-1];
   $commonField = "NX2|01|$commonField";
   chomp $commonField;
   print "my commonField is this $commonField\n";

   @ARGV = <$responseDir/*>;
   while (<>)
    {
         $newFile = $ARGV, last if /^"$commonField"$/;
    }
   print "my newFile to change is $newFile\n";
   if (defined($newFile))
    {
      system ("perl -pi -e 's/$replaceField/$origField/g' $newFile");
      print "Done doing perl s/$replaceField/$origField/g $newFile\n";
      system ("mv $newFile $responseDone");
      print "Done moving $newFile to $responseDone\n";
      system ("mv $sourceDir/$arrFileList $processed");
      print "Done moving $sourceDir/$arrFileList to $processed\n";
    }
 }