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