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