Help for this page

Select Code to Download

Select or download this

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