Select Code to Download

use strict;
use CGI qw(:standard);
...
          -labels=>{1=>'Ali',2=>'Baba'},
        );
print $html;

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