@ss = split(/,/,$INPUT{'ss'});
foreach $ss (@ss) {

if ($ss eq "ss") {
print <<EOF;
SS:  <input type="checkbox" name="ss" value="ss" checked>&nbsp;&nbsp;
EOF
}
elsif ($ss eq "SSD") {
print <<EOF;
SSD:  <input type="checkbox" name="ss" value="ssd" checked>&nbsp;&nbsp;
EOF
}
elsif ($ss eq "PERS") {
print <<EOF;
PERS:  <input type="checkbox" name="ss" value="pers" checked>&nbsp;&nbsp;
EOF
}
elsif ($ss eq "childsup") {
print <<EOF;
	<td>CHILD SUP:  <input type="checkbox" name="ss" value="childsup" checked></td>
EOF
}
}