list element in quotes followed by <something> instead of space

This seems to work

when HTTP_REQUEST {
set i 0
set clist [HTTP::cookie names]
if { [catch {set n [llength $clist]}] } {
    log local0. "Error. Bad entry in cookie names: $clist"
    return
}
while {$i < $n} {
    switch -glob [lindex $clist $i] {
        "xxxxx" -
        "xxxxxx" -
        "xxxxxx" -
        "xxxxx" -
        "xxxxx*" -
        "xxxxxxxxx*" {
            HTTP::cookie remove $cookie
        }
    }
    incr i
}
}