use List::Util qw/shuffle/;

my $x = 1;
my $y = 20;
my $looptimes = 10;

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

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