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";
}
}