my @ss =
  map sort_inner( [ keys %{ $HoHoA{ $_->[ 0 ] } } ] ),
  sort { $a->[ 1 ] <=> $b->[ 1 ] }
  map [ $_, substr( $_, 3 ) ],
  keys %HoHoA;