$cgi->popup_menu(
	-name	=> 'unigene_build',
	-values	=> [@{$dbh->selectcol_arrayref($sql)}],
	)

##</code><code>##


$sth_menu->execute();

while (my $ref = $sth_menu->fetchrow_arrayref()) {
	$menu{$$ref[0]} = $$ref[1];
	}

$cgi->popup_menu(
	-name		=> 'external_database_id',
	-values		=> [keys(%menu)],
	-labels		=> \%menu
	);