my $t = Tie::IxHash->new(%hash);
$t->SortByKey;
print Dumper(\$t);