Code:

proc randlist { list } {   # determine length of list   set listlength [llength $list]   # iterate on list, decrease length per iteration    for { set i $listlength } { $i > 1 } { incr i -1 } {      # choose random index       set randindex [rand $i]      # pick the random item      set randitem [lindex $list $randindex]      # cut the random item from the list      set list [lreplace $list $randindex $randindex]      # paste the random item at the end of the list      set list [lappend list $randitem]   }   return $list}

Code:

bind dcc - randlist makerandlistproc makerandlist { handle idx arg } {   set list "1 2 3 4 5 6 7 8 9 10"   putlog [randlist $list]}