my $found=0; 
$_==$scalar and ($found=1),last for @array;