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