use strict;
use warnings;
use List::MoreUtils qw(any);

my @array = (34,52,67,3,66);
print "At least one value > 10"
    if any { $_ > 10 } @array;

__END__

At least one value > 10