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

##</code><code>##

@hash2{ 0 .. (keys %hash)-1 } = @hash{ sort { $a <=> $b } keys %hash };