unnecessary awk redux

BEGIN {
    RS="[\n,]"
    regex = "^#[0-9a-fA-F]{8}$"
}

$0 ~ regex { a[substr($1,0,7)] }

END {
    PROCINFO["sorted_in"] = "@ind_str_asc"
    for (b in a) {
        printf "\"%s\",\n", b
    }
}