print "56565656565656565656565656565656565656565656\n";

  $i = 0;
  foreach $point ( @$block ) {
    print "block $i\n";

    $j = 0;
    foreach $vertex ( @$point ) {
      print"vertex $j\n";

      $k = 0;
      foreach $vertexItem ( @$vertex ) {
        print '['.$i.']['.$j.']['.$k.'] =>', $vertexItem, "\n";
        $k++;
      }
      print '';
      $j++;
    }
    $i++;
  }
  print "56565656565656565656565656565656565656565656\n";