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