Select Code to Download

use List::Util 'shuffle';

my @numbers = 1 .. 15; # could be any list
@numbers = shuffle @numbers;
print "@numbers[0 .. 4]";