add-exist-item.tcl