tcl脚本里面设置变量