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

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


      }
    
  }
for my $element (@findle) {
    print "$element\t=>$count{$element}\n";
}