for(my($i)=0;$i<$length-2;$i+=$n)
  {
    eval{"\$d".($i-1/$n)} = substr($field, $i, $i+2)
  }