<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
set colori(0) "rosso"
set colori(1) "giallo"
set colori(2) "blu"
.f.text insert end "il secondo elemento dell'array e' : $colori(1)
"
set persona(name) "Marcello"
set persona(cognome) "Mengoni"
set persona(anni) "28"
.f.text insert end "la mia eta' e' : $persona(anni) anni
"
]]>
array.tcl