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

                }
         }
         close F;