Select Code to Download

use List::Util qw( shuffle );
my @picks = (shuffle 1..15)[0..4];

my @picks;
my %seen;
...
   redo if $seen{$pick}++;
   push @picks, $pick;
}