%hash = map { ($_, $hash{(sort keys %hash)[$_]}) } 0..keys(%hash)-1;