在tcl脚本中使用数组时，如何判断数组元素是否存在？

pqzhu

假设有这样一个文件，想用数组处理：
a 1
b 2
c 3
a 4
b 1
c 1
想要的结果为
a 1
b 1
c 1
就是不能有重复的元素，如果发现重复那就取较小的值
我的想法是：
首先要判断a是否存在，不存在我就给它赋值，存在的话，我就用其新值和旧值比较，取较小值
但是，前提是要会判断a是否存在？
请问高手如何判断？