如何对列表进行排序，如果列表元素重复，则在tcl中添加与该元素关联的值

# 创建一个包含重复元素的列表
set list {3 1 2 4 2 1}

# 定义一个比较函数，用于处理重复元素的排序
proc compareWithAssociatedValue {a b} {
    # 获取与元素关联的值
    set valueA [dict get $associatedValues $a]
    set valueB [dict get $associatedValues $b]

    # 比较元素关联的值
    if {$valueA < $valueB} {
        return -1
    } elseif {$valueA > $valueB} {
        return 1
    } else {
        return 0
    }
}

# 创建一个关联值的字典
set associatedValues {
    1 10
    2 20
    3 30
    4 40
}

# 使用sort命令对列表进行排序，并指定比较函数
set sortedList [lsort -command compareWithAssociatedValue $list]

# 输出排序后的列表
puts $sortedList