for(sort keys %output) { print "$_,$output{$_}{category},$output{$_}{division},$output{$_}{priority},$output{$_}{resolved},$output{$_}{current},$output{$_}{tis},$output{$_}{customer},$output{$_}{worker}\n"; }