Select Code to Download

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

                                                              _____/\_
+_
...
  __/\   d     f   /\   i   /\__       n  o   /\__    s  t  u
 /\   c           g  h     j   /\            p   /\
a  b                          k  l              q  r