Select Code to Download

# 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;

sub pop_any (\@) {
  my $a = shift;
...
my @a = (1..10);
my $r1 = pop_any @a;
my $r2 = pop_any @a;