Is there a specific reason for doing an exact match via regex when an equality check would suffice?

    if ( grep $_ eq $x, @b ) { ... }
[download]

This would be faster and would not be vulnerable to metacharacter interpolation.