RosettaCodeData/Task/Array-length/Tcl/array-length-1.tcl

set mylist  { item1 item2 item3 }