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{$_}");
               }
          }