array set FOO {
foo OK
foo,bar OK
}
# 1
proc returnFoo {array_name} {
upvar 1 $array_name array
return [array get array]
}
array set recFOO [returnFoo FOO]
puts $recFOO(foo,bar)
# 2
proc returnFoo {} {
return FOO
}
upvar 0 [returnFoo] BAR
puts $BAR(foo)
YXJyYXkgc2V0IEZPTyB7Cglmb28gT0sKCWZvbyxiYXIgT0sKfQoKIyAxCnByb2MgcmV0dXJuRm9vIHthcnJheV9uYW1lfSB7Cgl1cHZhciAxICRhcnJheV9uYW1lIGFycmF5CglyZXR1cm4gW2FycmF5IGdldCBhcnJheV0KfQoKYXJyYXkgc2V0IHJlY0ZPTyBbcmV0dXJuRm9vIEZPT10KcHV0cyAkcmVjRk9PKGZvbyxiYXIpCgoKIyAyCnByb2MgcmV0dXJuRm9vIHt9IHsKCXJldHVybiBGT08KfQp1cHZhciAwIFtyZXR1cm5Gb29dIEJBUgpwdXRzICRCQVIoZm9vKQ==