#!/usr/bin/perl -w

use CGI qw/ :standard /;
use strict;
my @checkbox_items = qw/one two three four five/;
print header,
      start_html( -title => 'Checkbox group sample using CGI.pm' ),
      start_form;
print checkbox_group(
    -name      => 'testing',
    -values    => \@checkbox_items,
    -linebreak => 1,
), submit, end_form;

my @checkbox_values = param( 'testing' );

print p( 'Check a button or two and click Submit Query to see the chec
+ked values.' ),
      li,
      join '<LI>', @checkbox_values;
print end_html;
[download]

Thanks for the feedback. I have used CGI.pm to create checkboxes. What I ran into with what you are suggesting is that the labels and values will be the same. If for example my label for an answer to a question is:
BillJ may have been assigned as trustee to the security object which gives him supervisor rights over all NDS objects
I don't want my value to this checkbox to be:
BillJ may have been assigned as trustee to the security object which gives him supervisor rights over all NDS objects
I want it to be 'd', or '3'. Something easier to compare with a correct answer. This also doesn't require as much memory. To use CGI.pm, I would have to set up my labels as a hash, which I'm trying to avoid doing because I haven't been able to get that to work. The problem I've been having using a hash is the syntax for the checkbox_group. It appears that I would have to set the value anyway and have the key in the hash match the value. This is very confusing so if you can explain this to me and show me how to write it that would be much appreciated.

I do absolutely understand that feeling of "oh hell, I can't be bothered with this" that one gets when one Reads The Fine Manual... after all, the following sentence is scarcely written for the benefit of people who don't already pretty much know the score:

The optional fifth argument is a pointer to an associative array
relating the checkbox values to the user-visible labels that will
be printed next to them (-labels).
[download]

BUT... it is SO worthwhile getting through the pain barrier. It's seldom as tough as it looks, and once learned it saves time after time.

Where it says

a pointer to an associative array
relating the checkbox values to the user-visible labels
[download]

what it means is "set up a hash where the keys are what you want as the checkbox values, and the values are what you want the user to read" - i.e. something like:

my %checkbox_items = (
    a => 'BillJ may have been assigned as trustee to the security obje
+ct which gives him supervisor rights over all NDS objects',
    b => 'BillJ may be wearing pink pyjamas when he comes round the mo
+untain',
    c => 'BillJ may be the first man to orbit Mars on a unicycle',
    d => 'BillJ may be just another Perl hacker',
);
[download]

Now, to avoid confusion, you should probably construct your array of checkbox values from this hash - that way you're sure there's always going to be a match between the values and the labels. So do

my @checkbox_values = keys %checkbox_items;
[download]

Then you put it all together by adding the -labels argument when you call the checkbox_group method:

print
    start_html,
    checkbox_group(
        -name      => 'testing',
        -values    => \@checkbox_values,
        -linebreak => 1,
        -labels    => \%checkbox_items,
    ),
[download]

And this will print out the following HTML (line breaks added for clarity:

<input type="checkbox" name="testing" value="a" />
BillJ may have been assigned as trustee to the security object which g
+ives him supervisor rights over all NDS objects
<br />

<input type="checkbox" name="testing" value="b" />
BillJ may be wearing pink pyjamas when he comes round the mountain
<br />

<input type="checkbox" name="testing" value="c" />
BillJ may be the first man to orbit Mars on a unicycle
<br />

<input type="checkbox" name="testing" value="d" />
BillJ may be just another Perl hacker
<br />
[download]

Hope that does what you want to do in an intelligible way. One other thought - about saving memory. A point frequently made round here, for example by by dragonchild, is that Perl is optimised not for CPU or memory use, but for that scarcest and most valuable of computer consumables... developer time. I.e. YOUR time. So if a thing is quicker to write but slower to run, write it that way and then $RAM->buy('more');

§ George Sherston

You had me till the very end. I really hate to mix HTML and CGI.

print p( 'Check a button or two and click Submit Query to see the chec
+ked values
+.' ),
      li,
      join '<LI>', @checkbox_values;



print end_html;
[download]

print p( 'Check a button or two and click Submit Query to see the chec
+ked values.' );
print li($_) for @checkbox_values;
print end_html;
[download]

print
    p( 'Check a button or two and click Submit Query to see the checke
+d values.' ),
    li(\@checkbox_values), end_html;
[download]