Hmm - This method will not scale well because it creates a temporary hash. If this is a repeated search in a large array, you would be doing a lot of memory management.

Here is the equivalent code, using grep:

$X = "x";
@array = qw / x y z 1 2 3 /;
return scalar grep(/^$X$/,@array) > 0;
[download]

The "scalar" isnt really necessary, but it documents the fact that grep is called in a scalar context.