Reading file with two columns in TCL - Day 2

2columns.tcl

# First three commands reads the data in to a file variable
set fp [open "2columns.txt" r]
set content [read $fp]
close $fp

# Next two commands reads all rows
set records [split $content "\n"]
set count 0

# Next commands parses each row where two columns are separated by a white-space
foreach rec $records {
set element [split $rec " "]
foreach number $element {
incr count

if { $count % 2 == 1 } {
	if {[regexp {[0-9]+} $number col_one]} {
	puts "Column one  = $col_one"
}
}

if { $count % 2 == 0 } {
	if {[regexp {[0-9]+} $number col_two]} {
	puts "Column two = $col_two"
}
}

}
}