use List::Util qw/shuffle/; my @random_set = (shuffle 0..11)[0..9];