foreach my $a(@ar) 
  {
	$cb_doc->addItem($a);
  }