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