foreach(@checks_list) {
              my $index=index $real_fields{$name},$_;
               if ($index != -1) {
                  print $q->b('This should be checked!');
                  print $q->checkbox(-checked=>'checked', -name=>"$name", -value=>"$_", -label=>"$hash{$_}");
               } else {
                  print $q->checkbox(-name=>"$name", -value=>"$_", -label=>"$hash{$_}");
               }
          }

##</code><code>##

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

##</code><code>##

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