my @my_bag = qw(1 2 3 4 5 6 7 8 9 10) ;
  my @random = sort{ (-1,1)[rand(2)] } @my_bag ;
  print "@random\n" ;