sub checkbox {
        my ($name, $value, $sel) = @_;
        my $checked = ($value eq $sel) ? "checked" : "";

        print <<EOT
    $value: <input type="checkbox" $checked name="$name" 
        value="$value">&nbsp;&nbsp;
    EOT
        return ($value eq $sel);
    }

##</code><code>##

    checkbox("ss", "ss", $ss);
    checkbox("ss", "ssd", $ss);

##</code><code>##

    my $found = 0;
    CHECKBOX: foreach (ss ssd pers) {
        if (checkbox("ss", $_, $ss)) {
            $found++;
            last CHECKBOX;
        }
    }
    if (not $found) {
        # code for those checkboxes with special treatment
    }