определение и перебор массивов в tcl

Мне нужна помощь в определении массивов, их отображении и циклическом просмотре в TCL.

Вот как я бы сделал это в php.

$date =array();
$size=0;
$date[$size] =$pre_event_date;
/* After doing some manpulation and calculations with $size */
for($i=0;$i<=$size;$i++){
    echo $date[$i];
}

Я хотел бы сделать то же самое с tcl. Подходит ли следующий код?

set size 0
set date[$size] $pre_event_date
#After performing some manipulation
for {set i 0} { $i <=$size } {incr i} {
    puts "$date[$i]";
}

Также я могу определить set $date как массив. Некоторым нравится:

set date array();

Итак, я отредактировал свой код, попробовал простой тест с использованием реализации массива RSeeger:

set date(0) 35
set date(1)  40
foreach key [array names date]{
   puts "${key}=$date($key)"
}

вышеприведенное ничего не возвращает, возможно, есть какая-то ошибка. Я также пробовал :помещает $date ($key )без кавычек, но это тоже не работает.