What do you want that this doesn't do?

print qq($_ => $hash{$_}) for sort keys %hash;
[download]

Cheers,
KM