When golfing... (I did not really care about old perl compatibility)

A quick trip to the sort perldoc exposes me to:

      The comparison function is required to behave.  If it returns
      inconsistent results (sometimes saying $x[1] is less than $x[2]
      and sometimes saying the opposite, for example) the results are
      not well-defined.
[download]

So i guess my golf does not produce completely random picks thanks for the heads up... ohh well =)