my %unordered=(...);
   tie my %ordered, "Tie::IxHash";
   for my $key (sort {$unordered{$a}[1] cmp $unordered{$b}[1]} keys %$unordered) {
      $ordered{$key}=$unordered->{$key};
   };