{
    local $_ = keys( %h ) -1; 
    @h{ 0 .. $_ } = delete @h{ sort { $a<=>$b } keys %h };
}