SpecifySeqLengths(my $id, my %seq);