elsif (($blast_par->{$cleancodes->[$y]}->{"defline"}->[$y] !~ m/NP_/) &&
($blast_par->{$cleancodes->[$x]}->{"defline"}->[$x] =~ m/NP_/)) {