my @list = $listbox1->curselection;
 foreach(@list){
 my $del_list="$_\n";
 chomp ($del_list);
 my $del_index=$del_list."."."0";
 print "$del_index\n";
 $listbox1 -> delete('$del_index','$del_index');
 #$listbox1 -> delete('2.0','2.0');
 }