Select Code to Download

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

use Data::Dumper

print Dumper(%Header);