TCL - pass in a file with a list contents

Question

I have an input file with a list of contents in it, I would like to pass it in , in TCL. My current script doesnt seem to work. Do I have to use "scan" or some oth