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

                }
         }
         close F;

##</code><code>##

    while($line = <F>) 
        {
            if ($line =~ /matchdata/i) 
            {
           
                push @files, $name;
                last;

                }
         }
         close F;