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