Такой код:
#!/usr/bin/tclsh
#
proc processdict d {
dict append d key Key
dict append d value Value
puts $d
}
set data [dict create name Bob age 20]
puts $data
processdict $data
puts $data
name Bob age 20
name Bob age 20 key Key value Value
name Bob age 20
