Select Code to Download

use Tk;
use Tk::JComboBox;
...
   $jcb->removeAllItems;
   $jcb->configure(-choices => \@items) if @items;
}

sub addItems {
   my @items = split(/ /, $entry->get());
...
   $jcb->configure(-choices => \@items) if @items;
   $jcb->PopupCreate;
}