sub new_ordered_hash {
   my %ordered_hash;
   tie %ordered_hash, 'Tie::IxHash';
   %ordered_hash = @_;
   return \%ordered_hash;
}