Select Code to Download

#!/usr/bin/perl -w
use strict;
...
       . "GROUP BY country, loc\n";

print $query;

my $depts = $dbh->selectcol_arrayref(qq{SELECT DISTINCT dept FROM dept
+s})
    or die "can't get dept values\n";
...
    or die "can't get gender values\n";

my @values = ( $depts, $categories, $genders );

$query = qq{
SELECT country, loc
...
    INNER JOIN countries ON(locs.country_id=countries.country_id)
GROUP BY country, loc
}

 @permuted = (
   ['pers',  'consultant', 'm'],
...
   ['sales', 'employee'],
   ['sales'],
);

$header_formats = [
  [
...
    { name => 'total',      colspan => 1, rowspan => 1 }
  ]
];

# $level =0; $value = 'N';
print '<td rowspan= "',
    shift @{$recs_formats->{$level}->{$value}},
    '">', $value,'</td>';

$recs_formats = {
    0 => {
...
        'zzzz'      => [ 1, 1, 1, 1, 1, 1 ],
  }
};

-- xtab              { colspan => 22 }
...
       +- zzzz       { rowspan =>  1 }
           +- zzzz   { rowspan =>  1 }