my $seg_end    = pos ($seq)-1;
    my $seg_start  = $seg_end - $seg_length+1;