测验题目

Is following Tcl code any problem?

----
while {$i < 10 }{
   # if {$i==5} {
   incr i
}
----

Please write a 3x3 array filled with number 1 to 9 using Tcl List.