Posted to tcl by kbk at Sat Nov 24 17:52:37 GMT 2012view pretty
array set x {1,1 fred 1,2 barney 1,10 betty 1,11 wilma} set l {} foreach k [array names x] { lappend l [split $k ,] } foreach pair [lsort -integer -index 0 \ [lsort -integer -index 1 $l]] { set k [join $pair ,] puts [list x($k) = $x($k)] }