sub{my $listnum =$h->info('selection');
                               $h->delete('entry',$h->info('selection'));
                                  if($h->info('exists', $listnum + 1)){
                                      $h->selectionSet($listnum + 1)
                                        }else{
                                            while($listnum--){
                                                if($h->info('exists',$listnum)){
                                                    $h->selectionSet($listnum);last}
                                             }
                                     }
                           delete $info{$key_sel};