#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my @filelist = ();
my $file='';
my $name='';

open(FILE,"array.txt")||die "Can't open array.txt";
    @filelist=<FILE>;
    close(FILE);

foreach my $line (@filelist){
        my $file=substr($line,0,5);
        chomp $file;
        my $name=substr($line,6,3);  
        chomp $name;
        open (FILE2,"$file"); 
                    while ( <FILE2>) {
                    if (/$name/ismo) {
                        print ("$name found in $file\n");
                    }
               }
        close(FILE2);
}