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