# slow
print "Found" if grep{ /$find/ } @list

# always faster and uses less memory
for (@list) {
    do{ print "Found"; last } if /$find/;
}