{
    my @key = sort { $a <=> $b } keys %h;
    @h{ 0 .. $#key } = delete @h{ @key };
}