Select Code to Download

use strict;
use warnings;
...
#use Data::Dump qw(pp);
#print pp \%seqPair;
#print pp \%seq_NoPair;