Select Code to Download

use strict;
use warnings;
...
  print $_ // ' ' for @$row;
  print "\n";
}

                                                 _____________
                                   _____________/             \_______
+__________
...
        e / \ h i j k l / \                                           
+    / \ E   / \ I     L  _/ \_            V W
          f g           m n                                           
+    C D     G H         / \ / \
                                                                      
+                        M N O P