my @numbers = (1..10);
my $r1 = splice @numbers, rand(@numbers), 1;
my $r2 = splice @numbers, rand(@numbers), 1;