Select Code to Download

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

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