Select Code to Download

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