$ time perl -MPDL -e 'print transpose pdl long hist +(10*random 1e7),0,10,1'

[
 [      0  998557]
 [      1  998651]
 [      2 1000878]
 [      3 1001181]
 [      4 1000788]
 [      5 1000577]
 [      6 1000108]
 [      7  999979]
 [      8  997430]
 [      9 1001851]
]

real	0m0.290s
user	0m0.215s
sys	0m0.074s