$ perl sample up
1 1 2 3 3 4 5 5 5 6 9
$ perl sample down
9 6 5 5 5 4 3 3 2 1 1