Where do you use the 'Double RegEx'? Currently, your entire code could be rewritten as:

chomp @lines;
foreach (@lines) {
    next unless /^>/;
    push @chromoLine, $_ if (split /\|/)[4] =~ /\Q$Homosapiens\E/;
}
[download]