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

##</code><code>##

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