一个tcl数组变量问题

火红的凄凉

求助一个数组变量设置问题，想法是通过设置数组名而非元素名来选取数据，实现想法如下：
Set sunday(first)  1
Set  monday(first)  2
Set  Sunday(second)  3
                 .
        .
        .


现在 set  xx  Sunday
怎么样将$xx 传递到 数组 Sunday(first) 上
尝试了 puts  ${xx}(first)     
        Puts  ${$xx(first)}
均不行，貌似一经传递，数组的属性就丢失了，请问大家有什么方法可以传递过去，谢谢！

sjtusonic

use eval：
http://www.tcl.tk/man/tcl8.6/TclCmd/eval.htm

xtwl_tpcl

用dict