use List::Util 'shuffle'; my @set = (shuffle(0..1184))[0..9];