in reply to Search strings stored in array into files of a directory

Why do you use perl? grep can do that for you: 
grep -f pattern.file directory/*

[download]

In Section Seekers of Perl Wisdom