...
$hlist->bind( '<Button-3>', sub {init_menu()});
...
sub init_menu
{
    my $menu = $hlist->Menu(-tearoff => 0);
    
    $menu->add('command', 
        -label => "delete",
        -command => sub{delete_entry();}
    );

    $menu->Popup(-popover => 'cursor');
}

sub delete_entry
{
    $hlist->itemDelete( $hlist->selectionGet, 1);
}