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