perl -le '@a=1..200; print while $_ = splice @a, rand @a, 1'