print $q->checkbox_group (
    -name=>'predefined',
    -values=>\@predefined,
    -linebreak=>'true'
    -default=>[ @predefined[@slicer] ],
    -labels=>\%predefined_labelhash,
    );

##</code><code>##

#!/usr/bin/perl -w
use strict;

use CGI;

my $q = CGI->new();
my @predef = ( 'abba', 'dabba', 'doo');
my @slicer = ( 1 );
my %labels = ( abba => 'pop', dabba => 'amateur', doo => "don't go there" );

print $q->checkbox_group ( -name => 'predefined',
   -values => \@predef,
   -default => [@predef[@slicer]],
   -linebreak => 'true',
   -labels => \%labels,);

=pod comment
$ perl ~/tcgi.pl
<input type="checkbox" name="predefined" value="abba" />pop<br /><input type="checkbox" name="predefined" value="dabba" checked="checked" />amateur<br /><input type="checkbox" name="predefined" value="doo" />don&#39;t go there<br />
$
=cut