While arrays are ill suited for this, there are several ways:

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

But more likely, you'll be better off using a hash instead of an array. Then, it's trivial (and fast!) to do this:

if (exists $set{$a}) { ... }
[download]

-- Dan