use Tk;
use Tk::HList;
use Tk::ItemStyle;
my ($l, $zeile);
my @tete = ('aaa'..'aaz');
$zeile = 3;
my $mw = new MainWindow;
my $hl = $mw->HList(-width => 50,
                    )->pack();
my $style = $hl->ItemStyle('text',
                           -foreground => '#FF0000',
                           -selectforeground => '#FF0000'
                           );
for (1..$#tete) {
    $l = $hl->addchild('');
    $hl->itemCreate($l, 0, -itemtype => 'text',
                           -style => ( $_ % $zeile) ? '' : $style,
                           -text => $tete[$_ - 1]
                   );
}
MainLoop();