Select Code to Download

my $x = 1;
my $y = 20;
...
}

say join ",", keys %numbers;

use List::Util qw/shuffle/;

...
my @numbers = shuffle($x .. $y);

say join ",", @numbers[0 .. ($looptimes - 1)];