#! /usr/bin/perl 
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new;
$mw->title("Checkbutton Grid");

my $x_size = 5;
my $y_size = 5;
my %b_name;

for (my $x=0; $x<$x_size; ++$x) {
  for (my $y=0; $y<$y_size; ++$y) {
    $mw -> Checkbutton (
           -activebackground => "white",
           -command => sub { print "$x,$y\n";
                       print "hi"; }
                       ) -> grid (
               -row => $x,
               -column => $y
                );
  }
}

MainLoop;