在TCL中以表格形式打印数组

Question

我正在尝试使用以下方法将数组打印到文件中

for {set i 0} {$i <= 9} {incr i} {

    set  j $i
    incr j
    set depth($j) [operation]
}

如何在第1行打印范围为j且第2行范围为depth的二维矩阵：

Level: 1 2 3 4 5 6 7 8 9 10

Value: a b c d e f g h i j

我试过下面的代码：

set FH [open tmp.txt w]

foreach keyVal [lsort -dic [array names depth]] {

        puts  -nonewline $FH " $keyVal\t"
}

puts $FH ""

foreach keyVal [lsort -dic [array names depth]] {

        puts  -nonewline $FH "$depth($keyVal)\t"
}

puts $FH ""

close $FH

输出：

1 2 3 4 5 6 7 8 9 10

a b c d e f g h i j