How To Use Foreach In Tcl