languages={"Faroese","English","Latin","Hindi","Hebrew"};
data=MapIndexed[Function[{language,index},{index[[1]],StringLength@#1}&/@DictionaryLookup[{language,All}]],languages];

Histogram3D[data,{Length@data,Automatic},"LogCount",PerformanceGoal->"Speed",Ticks->{None,Automatic,Automatic},ChartLegends->languages,ChartStyle->60,ViewPoint->{2.78,1.3,1.43},Boxed->False,FaceGrids->{Bottom,Front,Left},ImageSize->400]