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