从tcl中的数组中检索数值索引

set myArray("key1") "value1"
set myArray("key2") "value2"

puts $myArray("key1")  ;# 输出 "value1"
puts $myArray("key2")  ;# 输出 "value2"

foreach key [array names myArray] {
    puts "Key: $key, Value: $myArray($key)"
}

Key: key1, Value: value1
Key: key2, Value: value2