while (<>) {
        if ($str eq "") {
           $str = "'" . substr($line,0,$x) . "'";
        }
        else {
           $str = $str . "," . substr($line,0,$x);
        }
}

checkbox 'Date','Forename','Middle','School'

@array = split ',',$str;
print $query->start_multipart_form("POST","printFields");
print $query->checkbox_group(-name=>'FieldNames',
                             -value=>[ @array ]);
print $query->submit('doWhat','Print Fields');
print $query->end_form;