my $found_any = grep { ... } @whatever;

##</code><code>##

use List::MoreUtils qw(any);
my $found_any = any { ... } @whatever;

##</code><code>##

use List::Util qw(first);
my $found_any = defined first { ... } @whatever;