%hash = (
    0 .. keys( %hash ) - 1, @hash{ sort { $a <=> $b } keys %hash }
)[ map +( $_, $_ + keys %hash ), 0 .. keys( %hash ) - 1 ];