相关疑难解决方法(0)

set B {pc_0::!mx_0 pi::$mx_0}
puts $B

set A ""
foreach x $B {
    lappend A $x
}

puts $A

这个程序的输出是

pc_0::!mx_0 pi::$mx_0
pc_0::!mx_0 {pi::$mx_0}

奇怪的是tcl在第二个输出中添加花括号.我想这是因为它使用了$符号.但我真的需要使用它,我不希望插入大括号.如何解释这个以及如何避免括号？