use strict;
use CGI qw(:standard);

my $html .= popup_menu(
          -name=>'col_id',
          -values=>[1,2],
          -default=>2, 
          -labels=>{1=>'Ali',2=>'Baba'},
        );
print $html;

##</code><code>##

<SELECT NAME="col_id">
<OPTION  VALUE="1">Ali
<OPTION SELECTED VALUE="2">Baba
</SELECT>