amma has asked for the wisdom of the Perl Monks concerning the following question:

I created a array of filehandles like below

my @handles = map { open my $fh, '<', $_; $fh } @files;

Now I want to open each file with file handle and search for a particular pattern and store that file name when pattern is succesful

any initial code that would help me is appreciated