#!/usr/bin/perl -w

@my_name=("Acidovorax","JS42");    #name to be searched...
                                   #...split by term/words
@db_name=("Acidovorax sp. JS42",    #data base of names in array
          "JS42 Acidovorax sp.",    
          "JS42 sp. Acidovorax",
          "JS53 sp. Acidovorax",
          "JS42 sp. Axidovorax",
          "JS42Acidovorax sp. "
          );

my $ctr;
#----compare strings in $db_name 1 at a time
foreach my $db_each (@db_name){            
   
   #----search each term/word of @my_name in $db_each
   foreach($ctr=0; $ctr<=$#my_name; $ctr++)   
   {
   	   #----if a term/word not found break the loop
       last if($db_each !~ /\b$my_name[$ctr]\b/i);  
   }                                                
   #----this will be true if inner foreach didn't break
   if($ctr==$#my_name+1)                            
   {
       print "$db_each\n";       #print the matched name
   }
}
<>;