my $mw = new Tk::MainWindow;
my @cb = ((map { $mw->Checkbutton(-text => (qw{Red Green Blue})[$_])->
		   grid(-column => $_, -row => 0, -sticky => 'w') } 0..2),
	  (map { $mw->Checkbutton(-text => (qw{Mustard Vinegar Salt})[$_])->
		   grid(-column => $_, -row => 1, -sticky => 'w') } 0..2));
MainLoop;