Select Code to Download

 foreach(@checks_list) {
              my $index=index $real_fields{$name},$_;
...
                  print $q->checkbox(-name=>"$name", -value=>"$_", -la
+bel=>"$hash{$_}");
               }
          }

 print $q->checkbox_group(-name=>"$name", -values=>\@checks_list,-defa
+ult=>\@check_array, -labels=>\%hash);

            print $q->scrolling_list(-name=>"$name", -values=>\@checks
+_list, -default=>\@check_array, -labels=>\%hash, -multiple=>'true');