sub singleItemSelect{
  my  @selectedItemIndex = $lbl->curselection;
  for (@selectedItemIndex)
  {
     $lbr->insert('end', $lbl->get($_));
  }
}