Select Code to Download

use strict;
use warnings;
...
}

print join(', ', @random_set), "\n";

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