foreach my $element(reverse(sort($listbox->curselection()))) 
{$listbox{'liste'}->delete($element);}