use strict;
use warnings;

my @array=(34,52,67,3,66);

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