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)]
}