Solo usa
global sink
(Global es solo un especial upvar
caso)
variables que terminan con (...)
son matrices (asociativas), no se recomienda usar números como clave, es mejor usar una lista, por ejemplo,
set mylist {}
# append some elements
lappend mylist "foo" "bar" "baz"
# get the 2nd element
puts [lindex $mylist 1]
# set the 3rd element to "Hello World"
lset mylist 2 "Hello World"