Array Declaration In Tcl