Select Code to Download

my @selection = @nums;
for (0..7) {
...
}

splice(@selection, 8);

use List::Util qw( shuffle );

my @selection = (shuffle(@nums))[0..7];