Tcl 配列に変更