my $t = Tie::IxHash->new(%hshFoo);
    my @keys = $t->Keys;
    $t->Reorder(@keys);
    $t->SortByKey;
    untie %hshFoo;

...or something