my @best_key = sort { keys %{$HoH{'score'}{$a}} <=> keys %{$HoH{'score'}{$b}}  } keys %HoH;