#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::HList;

my $mw    = tkinit();
my $hlist = $mw->HList()->pack();
my $btn   = $mw->Button(-text    => 'auslesen', 
                        -command => \&read_entry)->pack();

fill_list();

MainLoop;

sub fill_list{
    for(0..4){
        $hlist->add($_, -itemtype => 'text', -text => $_);
    }
}

sub read_entry{
    my $data = $hlist->entrycget(2,'-text');
    print $data,"\n";
}