if( @seq > 1 and $seq[ -1 ][ 0 ] > ( $seq[ -2 ][ 0 ] + 1 ) ) {
            pop @seq;
            if( @seq >= 4 ) {
                push @seqs, [ @seq ];
            }
            undef @seq;


##</code><code>##

        if( @seq > 1 and $seq[ -1 ][ 0 ] > ( $seq[ -2 ][ 0 ] + 1 ) ) {
            my $temp = pop @seq;
            if( @seq >= 4 ) {
                push @seqs, [ @seq ];
            }
            @seq = $temp;