在TCL中，我有一些名称带有数字后缀的数组（即名称以数字结尾），如下所示：
array set ps0 [ list 0 15.885 1 55.43 1 0.254 2 0.227 3 0.177 ]
array set ps1 [ list 0 6.585 1 56.43 1 0.254 2 0.227 3 0.177 ]
array set ps2 [ list 0 32.485 1 43.13 1 0.254 2 0.227 3 0.177 ]
我需要在 TCL 中迭代这些并获取值，但是，无论我做什么来转义数字后缀，我都无法同时获取数组和内容。我尝试过的一切，例如：
ps$i($i)
"ps$i($i)"
甚至使用类似的集合：
set p ps$i
...无法获取具有数字索引的数组。我收到错误：
Original error: can't read "ps": no such variable
...所有可能的组合。我怎样才能做到这一点（在 TCL 中）？