my @d = map{ substr $field, $_*n, $n } 0 .. ($length)/$n;