The List::MoreUtils::any function was designed to do such a thing:

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
[download]

any is efficient in the sense that the function will return as soon as the condition is met; it will not loop through the entire array if it does not have to. This is similar to the last solution above.