if (grep /^\Q$a$/, @set) { ... }