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

##</code><code>##

  my @same_order = sort{ 0 } @my_bag ;
  my @reverse = sort{ 1 } @my_bag ;