$hlist -> bind("<Double-Button-1>" => \&DoubleClicked);
sub DoubleClicked
  { my @selected = $hlist->selectionGet();
    my $entry = $selected[0];
    print "DoubleClicked: $entry\n";
    $hlist->hide('entry', $entry);
    $mw->update();
    sleep(1);
    $hlist->show('entry', $entry);
  }