foreach my $r (0 .. $total){
   $row[$r] = $aob[$r][$y - 1];
}