Help for this page
@hash2{ 0 .. (keys %hash)-1 } = map { $hash{$_} } sort {$a <=> $b} key +s %hash;
@hash2{ 0 .. (keys %hash)-1 } = @hash{ sort { $a <=> $b } keys %hash } +;