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

my %tk;

$tk{mw} = MainWindow->new;

$tk{tlist} = $tk{mw}->TList(
  )->pack(
    -expand => 1,
    -fill   => 'both',
  );

my @cbvar = ( 0, 1, 1, 0, 0 );

for ( 0 .. $#cbvar ){
    $tk{"cb$_"} = $tk{tlist}->Frame;

    $tk{"cb$_"}->Checkbutton(
        -variable => \$cbvar[$_]
    )->pack( 
        -side => 'left'
    );

    $tk{"cb$_"}->Label(
        -text => " Checkbox $_ "
    )->pack(
        -side => 'left'
    );
    
    $tk{tlist}->insert( 'end',
        -itemtype => 'window',
        -widget => $tk{"cb$_"},
    );
}

MainLoop;