my @sample = (1..10);
    my $n = 3;
    
    for my $l (0..$n-1) {
        my $r = rand (@sample);
        @sample[ $l, $r ] = @sample[ $r, $l ];
    }
    
    print join (", ", @sample[0..$n-1]), "\n";