my $found_any = grep { ... } @whatever;
[download]

Because grep always iterates through the entire list, to stop on the first one found, you might try instead:

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

or:

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

...though, in practice, it is unlikely to matter, performance-wise, unless @whatever is huge.

As an aside, note that both any and first are built in to Perl 6.