#!/usr/bin/perl

use strict;
use warnings;

use Tk;

my $mw = tkinit();

my @check;

foreach my $value ( 1 .. 10 )
{
	my $col = $value <= 5 ? $value : $value - 5;
	my $row = $value > 5 ? 1 : 0;

	$mw->Checkbutton(
		-text => $value,
		-onvalue => $value,
		-variable => \$check[$value-1],
	)->grid(
		-column => $col,
		-row => $row,
	);
} # foreach

$mw->Button(
	-text => 'OK',
	-command => sub {
		print 'Ausgewaehlt: ', join ', ', grep { $_ } @check, "\n";
	},
)->grid(
	-column => 0,
	-columnspan => 4,
	-row => 2,
	-sticky => 'ew',
);

$mw->gridRowconfigure( 2, -weight => 1 );

MainLoop;

__END__