my @numbers = (1 .. 10);
while (@numbers) {
  my $index = rand(@numbers);
  my $pick = splice(@numbers, $index, 1);
  print "$pick\n";
}