while( my ( $outkey, $href ) = each %HoH )
{
    foreach my $inkey ( sort { $a <=> $b } keys %{ $href } )
    {
        # do stuff here