sub ixhash { tie my(%hash), 'Tie::IxHash'; %hash = @_; return \%hash; }