in reply to Re: re-key a hashin thread re-key a hash
%hash = map { ($_, $hash{(sort keys %hash)[$_]}) } 0..keys(%hash)-1; [download]
That is a bit silly… but I'll concede that it's less obscure than mine. :-)
Makeshifts last the longest.