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

##</code><code>##

if ($element[4] =~ /\Q$Homosapiens\E/ &&
    $element[4] =~ /\Q$choromosome\E/)

##</code><code>##

if (index($element[4], $Homosapiens) >= 0 &&
    index($element[4], $choromosome) >= 0)