for my $element (@findle)
         {
    if (/\Q$element\E/ ) {
        print "$_\n";
        $number++;
       #  push @hit $element;
         push(@hit, $number);

        #@lines =
   # print ("there are : " . $number);


      }
    
  }