Shell Programming and Scripting

I'm fairly new to tcl scripting and could use a little help. I have a simple list file that will be of unknown size (somewhere between 10 to 20 names). I'd like to create a gui that has a checkbutton for each name in the list and a single action button that will do something for all the checkboxes that have been selected.

Here's what I have as well as what I need...

------------------------------------------------------------------

frame .one
foreach person {some way to read the list file and create the list here}
set lower [string tolower $person]
checkbutton .one.$lower -text $person -variable $person
pack .one.$lower -side top -anchor w
}
pack .one -side top

frame .action
pack .action -side bottom
button .action.do_it -text "Do it" -command do_it
button .action.quit -text "Quit" -command quit
pack .action.do_it .action.quit -side left

proc do_it {} {
foreach person {same list as above}
set lower [string tolower $person]
if {variable for check box for this person}
puts "$person was selected. Some action will be taken"
exec some action will be taken here
}
}
}


- I need some way to read in the file and populate the foreach list.
- I also need to be able to determine it a checkbox has been selected and take some action.


I'll take any help or suggestions you can offer.

Thanks in advance...