foreach  $combinations (@motifs){
   foreach $sequence(@file)  {
     if($sequence =~/$combinations/){
      $counter++;
    }
   }