if (grep {$_ > 10} @array) {
    print "Yes, at least one is bigger than 10\n";
}