foreach my $z (@filtered_subjects)
  {
	 chomp $z;
	 @element = split('\|', $z);
	 if($element[4] =~ /\Q$Homosapiens\E/)
	 {
     push(@chromoLine, $z);
	 }
  }
}