@hash{sort keys %hash} = values %hash;

##</code><code>##

$ perl -MData::Dump -e 'my %x = qw{a 1 b 2 c 3}; dd \%x; @x{sort keys %x} = values %x; dd \%x'

##</code><code>##

{ a => 1, b => 2, c => 3 }

##</code><code>##

{ a => 1, b => 2, c => 3 }
{ a => 1, b => 3, c => 2 }
{ a => 2, b => 3, c => 1 }

##</code><code>##

@hash{keys %hash} = values %hash;