while($n--) {
   my $theNumber = int(rand(scalar(@numbers)) + 0.5);
   print splice(@numbers, $theNumber, 1), "\n";
}