#    if ($curseq ne $nextseq) {
#      while ($curseq ne $nextseq) {
#       push(@missing, $commseq);
#        print ("Found missing file sequence $curseq - $nextseq\n");
#        $curseq++;
#      }
#    }
#    $curseq = $nextseq;
#  }

    if ($curseq < $nextseq) {
      my $endseq = $nextseq-1;
      if ($curseq == $endseq) {
        push @missing, $curseq;
      } else {
        push @missing, "$curseq-$endseq";
      }
    }
    $curseq = $nextseq;
  }
  print "missing=<@missing>\n";