my @keys_by_key = sort { $a <=> $b } keys %hash;
my @values_by_key = @hash{@keys_by_key};

##</code><code>##

my @values_by_key = @hash{sort { $a <=> $b } keys %hash};