my @VARIABLES = ($col."Period", $col."Code", $col."Name", $col."Handle", $col."Date", $col."From", $col."To");

##</code><code>##

use Data::Dumper

##</code><code>##

print Dumper(%Header);