Select Code to Download

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

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

    @array = ($str);

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