in reply to Select three random numbers between 1..10
[me@host]$ perl -le 'print join(",", map { splice (@{$x ||= [1..10]},i +nt rand @$x,1) } (1..3))' 5,1,8 [me@host]$ [download]
------------ :Wq Not an editor command: Wq [download]