Select Code to Download

sub create_cat_list{
    my ($type,$dbh)=@_;
...
    my $l1=create_cat_list('l1',$dbh);

    $output.=$q->popup_menu(-name=>'l1_cat',-values=>$l1->[1],-labels=
+>$l1->[0]);

   $VAR1 = [
          {
...
          ]
        ];

<select name="l1_cat">
<option value="Canadian Coins">Canadian Coins</option>
...
<option value="US Coins">US Coins</option>
<option value="US Paper Money">US Paper Money</option>
</select>