#! /usr/bin/perl
use warnings;
use strict;

use Tk;
use Tk::HList;

my $mw = 'MainWindow'->new(-title => 'Listbox test');
my $hl = $mw->HList(-drawbranch => 0,
                    -pady       => 0,
                    -padx       => 10  # <- This is what you need!
)->pack;

for ('A' .. 'H') {
    $hl->addchild("", -text => $_);

}

MainLoop();