Help for this page
use strict; use warnings;
# if ($curseq ne $nextseq) { # while ($curseq ne $nextseq) { ... $curseq = $nextseq; } print "missing=<@missing>\n";