@ARGV = <$responseDir/*>; while (<>) { $newFile = $ARGV, close ARGV, last if /^"$commonField"$/; }