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