1 2 3 4

      [1 2] [3 4]

   [1 3] [3 2] [2 4]


##</code><code>##

# naive shuffle

perl -le "print for sort  { int rand(3) - 1 } @ARGV" 1 2 3 4 5

1
3
5
2
4