Select Code to Download

$testHash{$year}{$status} = $getNumbers;

...
-> $testHash{2014}{Closed} = 2;
-> $testHash{2014}{Cancled} = 3;
etc.

foreach $key (keys %testHASH){
 foreach $key2 (keys %{$testHASH{key}}{
...
print $outfile "$line\n";
}
}