sub print2DArray7 {
  for (@_) {  
    print join " ",@$_;
    print "\n";
  }
}