set list { "number one" "number two" "number three" } set random [lindex $list [rand [llength $list]]]