my $sub = substr ($seq, $end, 1000);