Help for this page
my $found=0; $_==$scalar and ($found=1),last for @array;
if (do {my $f=0; $_==$scalar and ($f=1),last for @array; $f}) { }