my $sql = "SELECT id, name FROM names_table";
    my $aryref = $dbh->selectall_arrayref($sql);
    my @values = map { $_->[0] } @$aryref;
    my %labels = map { $_->[0] => $_->[1] } @$aryref;
    use CGI;
    my $q = new CGI();
    print $q->popup_menu(
        -name=>'foo',
        -values=>\@values,
        -labels=>\%labels
    );