for (my $offs=0; my $fm=substr($DNA1, $offs, 4); $offs+=4 ) { ... }