find duplicate in list Tcl code example

Example: lsort tcl unique list

set nonUniqueList {1 1 12 3 14 12};
set UniqueList [lsort -unique -real -increasing $nonUniqueList];
puts $nonUniqueList;
puts $UniqueList