my @sorted_keys =
  map  { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
  map  { [ $_, extract( $hash{ $_ } ) ] }
  keys %hash;