while(/([ACGT]{7,})/g) {
  for my $ix (0..lenght($1) - 7) {
    ++$index{substr($1, $ix, 7)}
  }
}