# my @numbers = (1..10); oops, thanks RMGir!
my @a = (1..10);
my $r1 = splice @a, rand(@a), 1;
my $r2 = splice @a, rand(@a), 1;

##</code><code>##

sub pop_any (\@) {
  my $a = shift;
  my $r = int rand(@$a);
  @{$a}[$r, 0] = @{$a}[0, $r] if $r;
  shift @$a
}

my @a = (1..10);
my $r1 = pop_any @a;
my $r2 = pop_any @a;