Hello Chuma,

The core module List::Util has a shuffle function which does what you want:

use strict;
use warnings;
use Const::Fast;
use Data::Dump;
use List::Util qw( shuffle );

const my $N => 10;
const my $K =>  5;

my  @range = (shuffle 1 .. $N)[0 .. $K - 1];
dd \@range;
[download]

Sample output:

23:04 >perl 2029_SoPW.pl
[10, 9, 5, 6, 7]

23:04 >
[download]

Hope that helps,