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

##</code><code>##

@array = ($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;

##</code><code>##

	@array = ($str);

##</code><code>##

	@array = ('Date','Forename','Middle','School');