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

my $mw = new MainWindow;
my $hl = $mw->Scrolled(
    'HList',
    -scrollbars => 'osoe',
    -background => 'white',
    -columns    => 400,
    -header     => 1,
    -width      => 10,
    -height     => 5,
    -command => sub{ print "AAA\n"},
            )->pack(-fill=>'both',-expand=> 1);

my $bgcolor = "bisque";

foreach my $column ( 0 .. 399 ) {

## Create the Clickable Header
    my $b = $hl->Button(
        -background => $bgcolor,
        -anchor     => 'center',
        -text       => "Header$column",
        -command    => sub {
            print "You pressed Header $column\n";
        }
    );

    $hl->headerCreate(
        $column,
        -itemtype         => 'window',
        -borderwidth      => -2,
        -headerbackground => $bgcolor,
        -widget           => $b
    );

}


foreach my $num(1..10) {
     my $e = $hl->addchild(""); #will add at end

   foreach my $col(0..399){        
     $hl->itemCreate ($e, $col,
           -itemtype => 'text',
           -text => "$num-$col",
            );
     }
}

MainLoop;
[download]