++$index{ $1 } while $$rSeq =~ m[(?=([ACGT]{7}))]g;