Tcl Foreach Loop Example