my $mw = new Tk::MainWindow;
my $top = $mw->Frame->pack;
my $bottom = $mw->Frame->pack;
my @cb = ((map { $top->Checkbutton(-text => $_)->pack(-side => 'left') }
	   qw{Red Green Blue}),
	  (map { $bottom->Checkbutton(-text => $_)->pack(-side => 'left') }
	   qw{Mustard Vinegar Salt}));
MainLoop;

##</code><code>##

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;