Select Code to Download

 <select name=s_dept onchange="sub_form('dept')">
       <option>Choose Dept</option>            
...
       <option><TMPL_VAR DEPT></option>
       </TMPL_LOOP>
</select>

     my @dept_loop;
     foreach my $dept (@dept) {
...

%formparams = ( DEPT_LOOP => \@dept_loop,  );<br> 
# there are other elements i left out that are irrelvant.