my $found = ( $_ eq $checkthis ) && last for ( @array );