In the tcl foreach loop, the function should compare line rather than the whole file.
Attach a file by drag & drop or click to upload