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