my $rHash = \%hash;
for my $k1 = (sort keys %$rHash) #outer key, this works
{
  for my $k2 (sort {$a <=> $b} keys %{$rHash->{$k1}}) )
  {
    #display miscellaneous
    print $k1 $k2;
  }
}