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