имеем примерно такой цикл

for {set i 0} {$i<=[llength $data]} {incr i} {
    ..............................
        set pins_list$i [list]
        set pins [lindex $data [expr $i+2]]
        lappend pins_list$i $pins
        puts $pins_list$i
        }
}

Дело в последней строке. Т.е. идея в том, чтобы получать значение переменной на каждой итерации и чтобы оно хранилось отдельно. Но так как написано, с двумя знаками $ TCL не принимает

• 'Двойное чтение переменной',anonymous, 09:18 , 05-Дек-11

>[оверквотинг удален]
>  ..............................
>   set pins_list$i [list]
>   set pins [lindex $data [expr $i+2]]
>   lappend pins_list$i $pins
>   puts $pins_list$i
>   }
> }
> Дело в последней строке. Т.е. идея в том, чтобы получать значение переменной
> на каждой итерации и чтобы оно хранилось отдельно. Но так как
> написано, с двумя знаками $ TCL не принимает

puts ${pins_list}$i
не пробовали?