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

##</code><code>##

if (exists $set{$a}) { ... }