@hash{ 1..keys %hash } = delete @hash{
    sort {$a<=>$b} keys %hash };