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

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

##</code><code>##

foreach $key (keys %testHASH){
 foreach $key2 (keys %{$testHASH{key}}{

$getNumbersOpen = $testHASH{$year}{$status}{opened};
$getNumbersClosed = $testHASH{$year}{$status}{closed};

$line = "'$status' : {'Open: $getNumbersOpen, 'Closed': $getNumbersClosed},\n;

----> If loop to remove the comma <----

print $outfile "$line\n";
}
}