Tcl for splitting with line

Hello

I am creating a tcl file which will split the elements with line drawn on window

so I dont know how to create array and all 

so can anybody help me??