use List::Util 'shuffle';
my @numbers = (1..10);
my $r1 = pop(shuffle(@numbers));
my $r2 =  pop(shuffle(@numbers));