Select Code to Download

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

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

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

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

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