rcseege showed the example for clickable headers, but you may find this "sort columns in Hlist" example interesting. It is written to avoid memory gains on each sort. You can combine the 2 scripts.

#!/usr/bin/perl
use strict;
use Tk;
use Tk::HList;
# use MeM;  #for tracking memory increases


my $mw = MainWindow->new();

#create some sample data
my %data;

foreach (0..100) {
      $data{$_}{'name'} = 'name'.$_;
      $data{$_}{'id'} =   rand(time);
      $data{$_}{'priority'} =  int rand 50;
}
#get random list of keys
my @keys = keys %data; 

#################

my $h = $mw->Scrolled( 'HList', 
                       -header => 1,
                       -columns => 3,
                       -width => 40,
                       -height => 40,
                       -takefocus => 1,
                       -background => 'steelblue',
                   -foreground =>'snow',
               -selectmode => 'single',
                       -selectforeground => 'pink',
                       -selectbackground => 'black',
                #       -browsecmd => \&browseThis,
                   )->pack(-side => "left", -anchor => "n");

$h->header('create', 0, -text => '   Name  ',
                        -borderwidth => 3,
                        -headerbackground => 'steelblue',
            -relief => 'raised');

$h->header('create', 1, -text => '      ID      ',
                        -borderwidth => 3,
                        -headerbackground => 'lightsteelblue',
                    -relief => 'raised');

$h->header('create', 2, -text => '  Priority  ',
                        -borderwidth => 3,
                        -headerbackground => 'lightgreen',
                    -relief => 'raised');


foreach (@keys) {
     my $e = $h->addchild(""); #will add at end
        
     $h->itemCreate ($e, 0,
           -itemtype => 'text',
           -text => $data{$_}{'name'},
            );
                        
     $h->itemCreate($e, 1,
           -itemtype => 'text',
           -text => $data{$_}{'id'},
         );

     $h->itemCreate($e, 2,
           -itemtype => 'text',
           -text => $data{$_}{'priority'},
         );

}

my $button = $mw->Button(-text => 'exit',
                         -command => sub{exit})->pack;

my $sortid = $mw->Button(-text => 'Sort by Id',
                         -command => [\&sort_me,1] )->pack;

my $sortpriority = $mw->Button(-text => 'Sort by Priority',
                         -command => [\&sort_me,2] )->pack;


MainLoop;
#########################################################

sub sort_me{
  my $col = shift;

  my @entries = $h->info('children');
  my @to_be_sorted =();

 foreach my $entry(@entries){
           push @to_be_sorted,
       [ $h->itemCget($entry,0,'text'),
         $h->itemCget($entry,1,'text'),
         $h->itemCget($entry,2,'text'),
       ];
           }

  my @sorted = sort{ $a->[$col] cmp $b->[$col]  || #primary sort ascii
                     $a->[1] <=> $b->[1]           #secondary sort num
+eric
                       } @to_be_sorted;
            
my $entry = 0;
  foreach my $aref (@sorted){
#    print $aref->[0],' ',$aref->[1],' ',$aref->[1],"\n";
    $h->itemConfigure( $entry, 0, 'text' => $aref->[0] );  
    $h->itemConfigure( $entry, 1, 'text' => $aref->[1] ); 
    $h->itemConfigure( $entry, 2, 'text' => $aref->[2] ); 
    $entry++;
  }

$mw->update;
}
[download]