Select Code to Download

my $mw = new Tk::MainWindow;
my $top = $mw->Frame->pack;
...
      (map { $bottom->Checkbutton(-text => $_)->pack(-side => 'left') 
+}
       qw{Mustard Vinegar Salt}));
MainLoop;

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