arrays in TCL

set a(0) 56

o/p :56

set a(3) 78

o/p :78

puts $a(0)

o/p :56

puts $a(3)

o/p :78