@table= ...
for ($col ... ) {
  for ($row ... ){
    $array[$row][$col]= substr(@table[$row],$col,1);
  }
}