[me@host]$ perl -le 'print join(",", map { splice (@{$x ||= [1..10]},int rand @$x,1) } (1..3))'
5,1,8
[me@host]$
##</code><code>##

------------
:Wq
Not an editor command: Wq