rawdata = RandomReal[NormalDistribution[50, 20], 12000]; bins = {Range[0, 100, 10]}; Histogram[rawdata, bins, "Probability", Ticks ->{ First@bins , Table[{.01 i, If[Mod[i , 5] == 0, ToString[i] <> "%", ""]}, {i, 100}]}]

With BarChart, you also get full control over the shortcuts, and perhaps in some situations this is better:
BarChart[(Length /@ BinLists[rawdata, bins])/ Length@rawdata 100, ChartLabels -> bins[[1, 2 ;;]], Ticks -> {Automatic, Table[{i, If[Mod[i, 5] == 0, ToString[i] <> "%", ""]}, {i, 1, 100}] }]

Edit
If you intend to use BinLists[] , remember this slippery detail: (from the help)
In BinLists [data, {xMin, xMax, dx}] elements are placed in bin i when their values satisfy xMin + (i-1) dx <= x <xMin + i dx.
In the form BinLists [data, {{b1, b2, ...}}] bi, at each end there can be -Infinity and + Infinity.