if ($element[4] =~ /^
   (?=.*?\Q$Homosapiens\E)
   (?=.*?\Q$choromosome\E)
/x)