my ($colPeriod, $colCode, $colName, $colHandle, $colDate, $colFrom, $colTo);

##</code><code>##

my @VARIABLES = ($colPeriod, $colCode, $colName, $colHandle, $colDate, $colFrom, $colTo); 

##</code><code>##

use warnings;
use Data::Dumper;

##</code><code>##

print Dumper(\%Header);
BuildHeader(\%Header);
print Dumper(\%Header);

##</code><code>##

$VAR1 = {
    'row' => 0,
    'heading' => 'true',
    'table' => {
        'table' => [
            [
                {
                    'value' => 'Period',
                    'heading' => 'true'
                },
                undef,
                {
                    'value' => 'Code',
                    'heading' => 'true'
                },
                undef,