Select Code to Download

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

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