while (readline $fhin) {
    my ($1, $2, $3,....$36) = split(/;/);
    printf $fhout, $s,\n", $1;
}