use strict;
use warnings;
use Data::Random qw(:all);

my @array = (1, 2, 1..120); #assign values to array
 
my @ten = rand_set( set => \@array, size => 10 );#get random  

print "Ten unique random numbers: @ten";