second attempt

    for {set i 1} {$i < 10} {incr i} {
	bind .n <Control-$i> {
	    list take-parts $i
	}
    }

proc take-parts {n} {
    puts $n
    set ::e_name [join [lrange [split $::e_name "."] 0 $n] "." ]
}