$ perl -Mstrict -Mwarnings -E ' my @nums = 0 .. 100000; say splice @nums, int(rand @nums), 1 for 1 .. 10; ' #### 10228 67730 84390 58034 22572 34234 43334 38920 5934 82290