use strict;
use warnings;
use List::Util qw(none);

my @list = 1..100;
my $j = 0;

if (! grep { $j++; $_ > 10 } @list ) {
  print 'Didn\'t find any values above 10 ... '
} else {
  print 'Found some values above 10 ... '
}

print "but I had to look at $j values to be sure.\n";

$j = 0;
  
if (none { $j++; $_ > 10 } @list) {
  print 'Didn\'t find any values above 10 ... '
} else {
  print 'Found some values above 10 ... '
}
 
print "but I had to look at $j values to be sure.\n";