-my $rowchar = 102; # 'f' -- rows are columns! (pi/2)
-my $opentag = 0;
-my $xml_element = sub {
- my ($rowref, $column) = (shift, shift);
- my $row = chr($rowchar);
-
- if ($column == 8) {
- $opentag++;
- if ($opentag > 1) { # a new row
- $rowchar++;
- $opentag = 0;
- }
- }
-
- $xml_prefix. $row. $column;
-
-};
-
-my @xml_elements = (
- sub { &{$xml_element}(shift, '1') },
- sub { &{$xml_element}(shift, '2') },
- sub { &{$xml_element}(shift, '3') },
- sub { &{$xml_element}(shift, '4') },
- sub { &{$xml_element}(shift, '5') },
- sub { &{$xml_element}(shift, '6') },
- sub { &{$xml_element}(shift, '7') },
- sub { &{$xml_element}(shift, '8') },
+my @xml_elements = ( # -- columns are rows! (pi/2)
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },
+ sub { return $xml_element; },