for ($a=0; $a<=$#columns; $a++) {
      for ($b=0; $b<=$#columns; $b++) {
        print "$list[$a][$b] "; # for testing
      }
      print " \n";
   }