It always amazes me how I can mess with something for an hour and someone can come and solve my problem with one simple line!

perldoc is your friend:

perldoc -q "sort a hash"