sub {

my @current_val_split = split /\n/, $_[0];
my $vals;
foreach (@current_val_split) { $vals->{$_} = 1 }

for (my $i = 0; $i <= 250; $i++) {
my $tmp;
if (!$field_vals->{form_values}[$i]) { last }
$tmp->{value} = $field_vals->{form_values}[$i];
$tmp->{name} = $field_vals->{form_names}[$i];
if ($vals->{$tmp->{name}}) { $tmp->{selected} = 1; }
push @checkbox_loop, $tmp;

}
return { checkbox_loop => \@checkbox_loop }

}

<%global_name($Checkbox_field_name)%>
<ul>
<%loop checkbox_loop%>
<li value="<%value%>" <%if selected%>selected="yes"<%endif%>><%name%></li>
<%endloop%>
</ul>