use List::Util q(shuffle);
print join q(,), shuffle 1 .. 1000;