Select Code to Download

my $doclist = [['prod1'], ['prod2']];

my @flat_doclist = map $_->[0], @$doclist;

# and then later:
print scrolling_list(-name => 'cboProj',
                     -values => \@flat_doclist);