How To Set Variable In Tcl