Select Code to Download

...
@the_list = ("1","2","3","4");
...

submit(-name=>'submit',-value=>'submit'),
    end_form() ) );

foreach $bit (@the_list) {
    $the_labels{$bit} = $bit . "&nbsp&nbsplabel1  " . "  description  
+ ";
}