@array = (10,11,12,13,14,20,21,25);
$x=1
if (grep /$x/,@array)
{
...
}

##</code><code>##

if (grep($_=$x, @array))
{

}