while($line = <F>) 
        {
            for $hit ($line =~ /matchdata/gi) 
            {
           
                push @files, $name;

                }
         }
         close F;