fancy/inscrutable

set i -1; foreach d $data { incr i
        set idx2node($i) [
                $table insert {} end \
                -values [list \
                        [lindex $d end] \
                        [lindex $d 0] \
                        [lindex $d 3] \
                        $i \
                ]
        ]
}